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增 井 敏 克 和 


1979 年 生 于 奈良 ， 毕 业 于 大 阪 府 立 大 学 研究 
生 院 。 增 井 IT 工程 师 事务 所 代表 、 注 册 工 程 
师 (信息 工程 学 方向 ) 。 从 事 旨 在 “将 商 
务 、 数 学 和 IT 结合 以 正确 、 高 效 使 用 计算 
机 ”的 技能 提升 指导 、 软 件 开 发 以 及 信息 安 
全 咨询 等 工作 。 掌 握 C/C++、C#、Java、 
PHP 和 Ruby 等 20 多 种 编程 语言 。 著 作 有 《在 
家 就 能 学 会 的 安全 基础 》 等 。 目 前 在 面向 IT 
工程 师 提 供 业 务 技能 评估 服务 的 平台 CodelQ 
上 负责 人 气 栏目 “每 周 算法 ”的 出 题 和 评审 
王 作 。 
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毕业 于 清华 软 院 。 曾 在 日 本 创意 公司 KAYAC 
从 事 即 时 通信 软件 和 手 游 的 开发 工作 ， 现 供 


图 灵 程 序 
设计 丛书 


程序 员 的 
算法 趣 题 


[日 ] 增 井 敏 克 / 著 绝 云 / 译 


QQ 


Inferesting Algorifhm Pp uzzles 


for Programmers 


人 民 邮 电 出 版 社 


图 灵 社 区 会 员 feiifan(wangjungen@163:com) 专 享 尊重 版 权 


图 书 在 版 编目 ( CIP ) 数据 
程序 员 的 算法 趣 题 / (日 ) 增 井 敏 克 著 ; 绝 云 译 
.一 北京 :人 民 邮 电 出 版 社 , 2017.7 
(图 灵 程 序 设计 从 书 ) 
ISBN 978-7-115-45923-7 
I . 程 … II. 四 增 … @ 绝 … 王 . 程序 设计 


IV. GTP311.1 

中 国 版 本 图 书馆 CIP 数据 核 字 (2017) 第 130676 号 
内 容 提 要 

本 书 是 一 本 解 谜 式 的 趣味 算法 书 , 从 实际 应 用 出 发 , 通过 趣味 谜 题 的 解 谜 过 程 ， 

引导 读者 在 愉悦 中 提升 思维 能 力 、 掌握 算法 精髓 。 此外, 本 书 作者 在 谜 题解 答 上 , 通 

过 算法 的 关键 原理 讲解 , 从 思维 细节 入 手 , 发 掘 启发 性 算法 新 解 , 并 辅 以 Ruby、 


JavaScript 等 不 同 语言 编写 的 源 代码 示例 , 使 读者 在 算法 思维 与 编程 实践 的 分 合 之 
间 , 切实 提高 编程 能 


本 书 适 合 已 经 学 习 过 排序 、 搜 索 等 知名 算法 , 并 想 要 学 习 更 多 有 趣 算 法 以 提升 
编程 技巧 、 拓 展 程序 设计 思路 的 程序 员 , 以 及 对 挑战 算法 问题 感 兴趣 、 爱 好 解 谜 的 


程序 员 阅 读 。 
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译 者 序 


作为 程序 员 ， 大 家 也 许 会 有 这 样 的 “小 洁 闸 ”: 特别 不 能 忍受 重复 
劳动 ， 特 别 讨厌 “人 肉 运 维 "。 因 此 ， 只 要 做 某 件 事 需要 花 90 秒 以 上 的 
时 间 ,， 那么 就 一 定 要 通过 写 程 序 来 完成 这 件 事 ， 哪 怕 写 程序 要 花费 半 
个 小 时 。 乍 一 听 ， 这 似乎 是 在 浪费 时 间 ， 然 而 这 正 是 大 部 分 优秀 程序 
员 的 特质 。 一 方面 ， 如 果 是 做 重复 的 事情 ， 计 算 机 通常 做 得 比 人 更 快 ， 
准确 率 也 更 高 ; 另 一 方面 ， 写 成 程序 之 后 ， 这 些 重复 的 流程 更 易于 变 
更 、 管 理 和 复 用 。 事 实 上 ， 正 因为 无 数 “ 有 洁癖 ”的 前 辈 们 的 伟大 工 
作 ， 才 有 了 编译 器 ， 才 有 了 百花 齐 放 的 编程 语言 ， 才 有 了 欣欣 向 荣 的 
IT 产业 。 


不 过 ， 如 果 只 是 养 成 了 “一 言 不 合 就 写 脚 本 ”的 习惯 ， 与 真正 优秀 
的 程序 员 仍然 有 很 大 的 差距 。 同 样 是 排序 ， 不 同 的 数据 规模 、 不 同 的 算 
法 实现 ， 性 能 表现 都 相差 巨大 。 同 样 地 ， 做 同一 件 事 ， 不 同 的 程序 员 的 
解法 和 效率 也 天 差 地 别 。 程 序 员 圈 内 一 直流 传 这 样 的 说 法 : “优秀 程 序 员 
的 生产 力 可 以 达到 普通 程序 员 的 十 倍 甚至 成 百 上 千 倍 。ACM 圈子 里 的 
高 手 ， 各 种 复杂 精巧 的 算法 信 手 牛 来 ， 应 对 极其 复杂 的 问题 时 编码 也 如 
诡 丁 解 牛 ， 行云流水 般 顺 畅 ， 顶 级 的 程序 员 其 至 能 创造 世界 级 的 工具 ， 
或 者 开创 一 种 流派 ， 影 响 大 部 分 程序 员 的 工作 和 思维 方式 。 这 种 差距 ， 
真 就 像 不 同 算法 之 间 复 杂 度 的 差距 一 样 明 显 ， 让 人 望 而 生 旦 。 


见 贤 思 齐 。 要 怎么 做 才能 步 人 “优秀 程序 员 ” 的 行列 呢 ? 抛 开 数 
学 、 各 种 计算 机 理论 的 基础 不 谈 ， 也 许 最 能 量化 程序 员 能 力 的 就 是 “ 代 
码 量 ”了 。 读 更 多 优秀 的 代码 ， 就 能 知道 更 多 好 的 架构 、 好 的 算法 ; 写 
更 多 的 代码 ， 解 决 问题 的 速度 就 更 快 ， 生 产 力也 就 更 高 。 提 高 代码 量 这 
个 简单 粗暴 的 方法 ， 效 果 的 确立 笔 见 影 ， 于 是 乎 一 大 批 在 线 编程 解 题 网 
站 应 和 运 而 生 。 而 本 书 正 是 源 于 日 本 一 个 IT 服务 网 站 CodeIQ 上 的 在 线 编 
程 解 题 栏目 “本 周 算法 ”。 这 个 栏目 的 主编 就 是 本 书 作者 ， 他 “ 寓 教 于 
题 ” ， 通 过 精心 设计 的 问题 向 大 家 传授 了 很 多 算法 、 程 序 优化 技巧 甚至 
工程 架构 方面 的 经 验 等 。 


本 书 可 以 看 作 是 一 本 算法 书 ， 与 其 他 编程 类 、 算 法 类 图 书 最 大 的 不 
同 有 两 点 : 其 一 是 所 有 问题 都 贴近 生活 和 实际 应 用 ， 兼 具 实用 性 和 趣味 
性 ; 其 二 是 以 虚拟 的 人 物 形 象 和 实际 的 代码 进行 讲解 ， 重 点 向 读者 演示 
不 同 思路 、 不 同 解 决 方案 之 间 的 区 别 和 差距 。 公 交 车 上 如 果 设 置 自动 找 
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零 的 装置 ， 应 该 怎么 实现 ? 怎样 实现 一 个 简单 的 扫地 机 器 人 ， 让 它 尽 量 
不 要 重复 清扫 某 一 个 角落 ?如 何 串 联 和 并 联 组 合 一 堆 电 阻 ， 使 得 最 终 电 
阻 值 逼近 黄金 分 割 值 ? 像 这 样 接地 气 、 有 意思 的 问题 ， 书 中 比比 丝 是 。 
讲解 求 斐 波 那 契 数 列 某 一 项 的 问题 时 ， 作 者 先 由 递归 切入 ， 后 讲 查 表 法 
优化 ， 最 后 引出 实际 实现 时 需要 处 理 数值 溢出 的 问题 。 全 书 的 讲解 都 像 
这 样 层 层 深入 、 条 分 缕 析 。 

本 书 共 4 章 ， 每 一 章 都 由 很 多 问题 构成 。 第 1 章 讲 的 是 最 基础 的 二 
进 制 ， 通 过 实例 帮助 大 家 理解 二 进 制 ， 进 而 用 二 进 制 解决 实际 问题 ; 第 
2 章 ~ 第 4 章 则 分 别 从 工程 、 算 法 和 架构 几 个 方面 切入 不 同 的 算法 优化 案 
例 。 此 外 ,个 别 问题 下 还 会 设置 专栏 ， 穿 搬 一 些 作者 在 软件 工程 甚至 人 才 
培育 等 方面 的 理解 和 经 验 。 


关于 本 书 ， 最 推荐 的 阅读 方式 是 读 完 题 先 停 下 来 想 想 解法 。 此 时 最 
好 能 打开 电脑 ， 打 开 编辑 器 ， 先 试 着 把 题 做 出 来 。 做 完 之 后 再 往 下 读 ， 
顺 着 作者 的 分 析 和 解答 细 细 体会 问题 背后 的 算法 思路 。 书 中 每 一 个 问 
题 都 汇集 了 作者 以 及 CodeIQ 网 站 大 量 用 户 的 集体 智慧 ， 相 信和 做 完 题 再 
作对 比 ， 一 定 可 以 收获 不 少 新 的 体会 。 如 果 您 发 现 了 更 好 的 解法 ， 和 希望 
您 可 以 到 图 灵 社 区 ( http://www.ituring.com.cn/ ) 或 者 本 书 的 代码 仓库 
( https://github.com/leungwensen/70-math-quizs-for-programmers ) 上 和 大 
家 分 享 交 流 ， 共 同 进步 。 


最 后 ， 成 书 不 易 ， 非 常 感谢 图 灵 各 位 编辑 的 帮助 和 指导 ， 也 感念 这 
将 近 一 年 时 间 里 家 人 的 理解 和 包容 。 


绝 云 
2017 年 4 月 5 日 于 杭州 
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计算 机 的 世界 每 天 都 在 发 生 着 深刻 的 变化 。 新 操作 系统 的 发 布 、 
CPU 性 能 的 提升 、 智 能 手机 和 平板 电脑 的 流行 、 存 储 介质 的 变化 、 云 的 
普及 …… 这 样 的 变化 数不胜数 。 

在 这 样 日 新 月 异 的 时 代 中 ,“ 算 法 ”是 不 变 的 重要 基石 。 要 编写 高 
效率 的 程序 ， 就 需要 优化 算法 。 无 论 开发 工具 如 何 进 化 ， 熟 识 并 能 灵活 
运用 算法 仍然 是 对 程序 员 的 基本 要 求 。 

程序 员 的 工作 说 白 了 就 是 把 需求 变 为 程序 。 人 们 希望 计算 机 做 的 事 
情 就 是 “需求 "， 实 现 需 求 的 就 是 “程序 ”。 能 满足 需求 的 程序 肯定 不 止 
一 种 ， 我 们 需要 从 中 挑选 出 最 优 的 程序 。 

这 里 的 难点 在 于 ， 怎 样 判断 一 个 程序 是 不 是 最 优 的 。 不 同 的 人 对 “ 优 
秀 的 算法 ”有 着 不 同 的 理解 。 我 认为 ， 优 秀 的 算法 需要 满足 以 下 3 点 。 


( 1) 高 速 

即使 是 简单 实现 后 在 处 理 上 会 花 很 长 时 间 的 程序 ， 有 时 候 转 换 一 下 
角度 进行 优化 ， 就 能 得 到 一 个 高 速 的 版 本 。 根 据 算法 内 容 的 不 同 ， 有 时 
候 优化 的 效果 不 仅仅 是 速度 提升 2 倍 、3 倍 ， 甚 至 提升 100 倍 、1000 倍 
的 情况 也 不 少见 。 
(2 ) 简化 

如 何 简化 输入 条 件 将 会 决定 最 终 代 码 的 复杂 度 。 越 是 简单 的 程序 ， 
可 维护 性 越 高 。 
( 3 ) 通用 

如 果 我 们 在 实现 程序 时 有 意识 地 把 通用 的 处 理 封装 起 来 ， 那 么 就 能 
把 源 代 码 用 于 其 他 问题 或 者 工作 需求 上 。 如 果实 现 的 程序 即便 输入 值 或 
者 参数 发 生变 更 ， 代 码 改 动 也 很 小 ,那么 测试 往往 也 能 简化 。 


我 很 喜欢 这 么 一 句 话 : 阅读 量 决定 了 学 习 能 力 的 上 限 ， 写 作 量 决定 

了 学 习 能 力 的 下 限 。 这 是 因 提出 “ 百 格 计算 ”7 而 闻名 的 岸本 裕 史 先生 说 

的 话 ， 个 人 觉得 这 对 编程 也 是 适用 的 。 要 想 磨 练 编程 技巧 只 有 了 两 个 途 

径 : 一 是 阅读 代码 ， 二 是 编写 代码 。 

四 岸本 裕 史 先生 于 昭和 40 年 代 (1965 一 1974 年 ) 提出 的 儿童 数学 运算 训练 方法 。 
在 10x10 的 格子 的 最 左 一 列 和 最 上 一 行 随机 填 入 0~9 的 数字 ， 并 在 左上 角 的 空 
格 里 指定 运算 符号 (加 减 乘 除 )， 按 照 运 算 符 号 计算 行 与 列 中 两 个 数字 的 运算 结 
果 ， 然 后 将 结果 填 入 该 行 与 该 列 对 应 交叉 的 那个 空格 里 。 译 者 注 
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不 存在 没有 读 过 其 他 人 写 的 代码 的 程序 员 。 很 显然 ， 也 不 存在 没有 
写 过 代码 的 程序 员 。 越 是 编程 技巧 高 超 的 开发 者 ， 读 过 的 代码 越 多 ， 写 
过 的 代码 也 越 多 。 

数据 结构 和 算法 的 学 习 尤 为 重要 。 多 了 解 堪 称 无 数 先驱 智慧 结晶 的 
算法 ， 多 亲身 体会 这 些 算法 的 效果 对 程序 员 非 常 重要 。 

本 书 为 那些 已 经 学 习 过 排序 、 搜 索 等 知名 算法 ， 并 想 要 学 习 更 多 有 
趣 的 算法 ， 进 一 步 提升 编程 技巧 的 工程 师 准备 了 69 道 数学 谜 题 形式 的 
问题 。 

当然 ,本 书 中 的 算法 并 不 是 最 优 的 。 请 怀 着 这 样 的 心态 ， 努 力 去 思 
考 更 加 优秀 的 算法 。 


致谢 

在 提供 IT 工程 师 业 务 技能 评估 服务 的 平台 CodeIQ ( https://codeiq. 
jp ) 上 有 一 个 名 为 “本 周 算法 ”的 栏目 。 我 在 这 个 栏目 中 担任 出 题 人 ， 
这 一 年 多 来 每 周 都 会 公布 一 个 算法 趣 题 。 本 书 中 的 问题 就 是 出 自 这 个 栏 
目 。 当 然 ， 对 于 原 问 题 ， 这 里 进行 了 些许 修改 和 补充 。 感 谢 策划 了 该 栏 
目的 大 成 弘 子女 士 、 每 周 在 我 出 题 后 进行 检查 的 掌 亚 由 美女 士 ， 以 及 其 
他 CodeIQ 相关 的 工作 人 员 。 

最 后 ， 还 要 感谢 积极 参与 “本 周 算法 ”挑战 的 各 位 答题 者 。 正 是 因 
为 有 你 们 ， 我 才能 持续 不 断 地 出 题 ， 最 终 让 本 书 得 以 付 梓 。 真 的 非常 感 
谢 大 家 。 


增 井 敏 克 
2015 年 10 月 


Viii 前 言 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


本 书 概要 


本 书 为 69 道 数 学 迹 题 编写 了 解 题 程序 。 每 个 问题 大 致 分 为 “问题 
页 ”和 “讲解 页 ”两 部 分 ,“ 问 题 页 ”从 单 页 起 。 请 各 位 先 通读 问题 摘 
述 ， 并 动手 编写 程序 尝试 解 题 。 在 这 个 过 程 中 ， 有 具体 的 实现 方法 是 其 
次 ， 更 重要 的 是 思考 “通过 哪些 步骤 来 实现 才能 够 解决 问题 "。 

翻 过 问题 页 就 能 看 到 思路 讲解 和 源 代 码 示 例 了 。 请 留意 自己 编程 时 
在 处 理 速 度 、 可 读 性 等 方面 进行 的 优化 ， 和 本 书 上 的 源 代码 示例 有 什么 
不 同 。 如 果 事 先 看 了 思路 讲解 和 答案 ， 就 会 失去 解 题 的 乐趣 ， 所 以 这 里 
建议 大 家 先 编程 解 题 ， 再 看 讲解 页 。 


问题 页 


0 @ Olio 


书 问题 的 难度 逐 章 递 


03 翻 牌 增 ， 每 道 题 的 IO 就 是 一 


ppp I I I I II I I I I I III I II I I I I I I I I II III I II I II I III IIIIIIIIIIIIIIIIIIIIIN, 从 百 昌 一 
更 加 明确 的 难度 提示 。 


: 这 里 有 100 张 写 着 数字 1~100 的 牌 ， 并 按 顺 序 排列 着 。 最 开始 所 有 
:有 牌 都 是 背面 朝 上 放 和 党。 某 和 人 从 第 2 张 牌 开始 ， 隔 1 张 牌 翻修。 然后 第 2， 
; 4, 6,…, 100 张 牌 就 会 变 成 正面 朝 上 。 


: 接 下 来 ， 另 一 个 人 从 第 3 张 牌 开始 ， 隔 2 张 牌 翻 牌 ( 原本 背面 朝 上 © 示 昌 征 辣 

: ”的 ， 翻 转 成 正面 朝 上 ; 原本 正面 朝 上 的 ， 翻 转 成 背面 朝 上 )。 再 接 下 来 ， 目标 时 间 

# 又 有 一 个 人 从 第 4 张 牌 开 始 ， 隔 3 张 牌 翻 牌 ( [8 )。 站 二 二 

像 这 样 ， 从 第 张 牌 开始 ， 每 隔 -1 张 牌 翻 牌 ， 直 到 没有 可 翻动 解 题 需要 的 标准 思考 
;的 牌 为 止 时 间 。 


/ : 加 问题 的 背景 
2a le)- er 
EE 

站 站 @ 问 是 
| @D 这 里 是 问题 描述 ， 在 读 


© | 求 当 所 有 牌 不 再 变动 时 ， 所 有 彰 面 朝 上 的 牌 的 数字 。 者 了 解 背景 后 设 问 , 引导 
| 读者 编程 并 解 题 。 


因为 只 是 单纯 从 左 往 右 风 处理 ， 所 以 请 用 简单 的 方法 实现 。 


e- 名 
人 @ 提 示 
有 助 于 解 题 的 提示 。 


Q03 翻 牌 | 011 
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@ 下 载 文件 名 

本 书 中 的 源 代码 均 可 下 载 ， 具 体 
信息 请 参考 下 文 的 “下 载 相关 ” 
部 分 。 


上 
响 


像 这 样 的 问题 用 递归 最 容易 描述 。 可 b 一 下 ， 切 分 后 的 木 棒 会 
像 切 分 前 的 木 棒 一 样 继续 被 切 分 。 如 果 用 Ruby， 可 以 像 代码 清单 04.01 
这 样 解决 问题 


代码 清单 04.01 (qo4_01.rb) 


def cutbar(m，n，current) # current 是 目前 木 棒 的 根 数 
if current >= n then 
0 # 完成 切 分 
elsif current < m then 


1 + cutbar(m，n，current * 2) # 接 下 来 是 现在 根 数 的 2 倍 


人 源 代码 


和 cutbar (m，n，current + m) # 加 上 切 分 次 数 解 题 的 源 代码 示 例 。 本 书 中 的 问 
本 题 基 本 都 会 附 上 基于 不 同方 法 来 


puts cutbar(3, 20, 1) 
puts cutbar(5, 100, 1) 


实现 的 不 同 的 源 代码 。 


cutbar 函 教 又 调用 了 同样 名 称 的 Cutbar 函 数 ， 这 是 怎么 回 事 几 呢 ? 
(区 


DS 像 这样 ， 函 孝 〈 方 法》 调用 函数 自身 就 称 为 “ 遂 归 调用 
人 想 委 重复 同样 处 理 的 时 候 用 过 归 会 很 方便 咕 。 


3 ta 加 每 个 关子 全 会 设 
As 洁 


书 中 将 有 三 个 人 物 出 场 ， 
来 思考 问题 


一 个 终止 条 件 。 着 归 


de 下 思路 会 发 现 ， 还 有 另 一 个 - 
， 本 题 题 干 可 以 等 价 为 m 个 人 黏合 1 厘 


是 说 ， 最 终 使 条 合 的 木 棒 总 长 度 为 : xD 
了 这 个 思路 。 : 
: 用 这 个 方法 遍历 的 时 候 可 能 会 出 现 无 效 日 期 ,因此 需要 准确 排除 这 
些 日 期 。 使 用 及 uby 时 ， 如 果 有 错误 抛 出 ， 只 需要 调用 rescue 就 可 以 撒 
可 以 利用 捕获 异常 来 简化 逻辑 ， 可 以 多 
种 方法 ,只 要 稍微 花 点 工夫 优化 ,处 理 时 间 就 能 大 幅 
| 第 1 章 入 站 篇 度 缩短 。 编 程 的 时 候 务必 要 兼顾 程序 可 读 性 和 处 理 效率 。 


19660713 
19660905 
19770217 
19950617 


20020505 
20130201 


解 题 的 关键 思路 。 © Column 


2036 年 问题 和 2038 年 问题 
E 000 年 问题 ” 吧 ? 因为 之 前 常用 两 
份 ， 所 以 人 们 认为 当 2000 年 来 临时 ， 根 据 实现 多 辑 不 同 ， 程 序 会 出 现 
M0) 答案 : 各 种 各 样 的 问题 。 比 如 年 份 的 顺序 会 发 生 错乱 ， 或 者 过 辑 处 理 出 错 其 
口 : 至 直接 终止 运行 等 。 不 过 因为 事前 作出 了 充分 准备 ， 所 以 并 没有 形成 
大 规模 的 混乱 。 
问题 的 答案 。 有 人 说 ,就 计算 机 而 言 ， 下 一 个 日 期 处 理 问题 将 发 生 在 2036 年 和 


2038 年- 2036 年 问题 的 起 因 是 有 些 NTP 了 协议 的 时 间 格式 是 以 1900 年 
1 月 1 日 为 起 点 ,用 32 位 的 二 进 制 数 表 示 的 。2038 年 问题 的 起 因 则 是 
CC 语言 等 用 32 位 的 二 进 制 数 来 表示 以 1970 年 1 月 1 日 为 起 点 的 时 间 。 

这 些 问题 有 一 个 解决 方法 ， 就 是 不 用 32 位 ， 而 用 64 位 二 进 制 数 
来 表示 日 期 。 虑 离 这 两 个 问题 出 现 还 有 不 少时 间 ， 但 是 作为 开发 
者 还 是 应 该 做 到 心中 有 数 ， 未 雨 岗 绿 


人 @O 专栏 a 
: 四 NTP 是 网 络 时 间 协议 ( Network Time Protocol )， 这 是 用 来 同步 网 络 中 各 台 
pe x i < 计算 机 的 时 间 的 协议 。 一 一 编者 注 
讲解 与 该 问题 相关 的 内 容 ， 或 者 
与 编程 和 算法 相关 的 内 容 。 


028 | 第 1 章 入 门 入 
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出 场 人 物 介 绍 


吉田 
在 SE 股份 有 限 公司 上 班 的 年 轻 程序 员 。 文 科 出 身 ， 侦 然 间 撞见 前 
辈 在 兴致 高 昂 地 编程 ， 深 感 震撼 ， 并 立志 成 为 工程 师 。 好 不 容易 才 
掌握 了 基本 的 编程 技能 ， 但 是 从 学 生 时代 起 数学 就 是 他 的 短 板 。 


吉田 的 上 司 。 在 进度 管理 方面 很 严 苛 ， 但 总 是 能 耐心 和 大 家 交流 。 
喝酒 也 很 豪爽 ， 深 受 部 下 尊敬 。 和 吉田 相反 ， 山 崎 从 小 就 喜欢 数学 ， 
是 公司 “数学 之 美 座谈 会 ”( 会 员 两 名 ) 的 主力 。 


RAR 
(9 We/ SE 股份 有 限 公司 前 员工 , 自由 职业 者 。 现 在 经 常 以 业余 活动 参与 者 
的 身份 出 入 公司 ， 常 常 给 公司 的 后 非 灌输 编程 的 乐趣 。 从 前 在 公司 


作 时 ， 因 为 超人 的 编程 速度 , 留 下 了 “手指 比 一 般 人 多 两 根 “ 晚 
上 的 时 候 第 三 只 眼 会 睁 开 ” 的 传说 。 


下 载 相关 


本 书 讲解 页 上 记载 的 源 代码 可 以 通过 以 下 链接 下 载 ( 点 击 “ 随 书 下 载 ”) : 


http://www.ituring.com.cn/book/1814 


下 载 文件 的 著作 权 为 作者 以 及 出 版 社 ( 翔 泳 社 ) 所 有 。 未 经 允许， 不 能 通过 网 络 传播 , 或 
者 发 布 在 Web 站 点 上 。 


此 外 ， 源 代码 在 以 下 执行 环境 中 验证 过 : 
® Ruby 2.2.3 
® JavaScript 1.8 
@C 语 言 C99 (GCC) 


出 场 人 物 介绍 | xi 
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中 提 到 的 网 址 等 可 能 会 随时 变更 。 
门 在 出 版 本 书 时 力求 准确 表述 ， 但 这 不 代表 作者 和 出 版 社 能 够 保证 本 书 内 容 完 全 准确 。 对 于 因 本 书 内 


容 和 示例 运用 不 当 导致 的 结果 ， 翔 泳 社 、 原 书 作者 、 人 民 邮 电 出 版 社 和 译 者 均 不 负 任何 责任 。 


书 中 的 示例 程序 、 脚 本 以 及 运行 结果 页 面 等 都 是 基 了 


寺 定 设置 环境 而 重 现 的 示例 。 


3 中 的 公司 名 、 产 品名 分 别 为 各 公司 的 商标 及 注册 商标 。 
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进 制 和 十 进 制 


有 不 少 人 虽然 听 说 过 计算 机 内 部 是 基于 二 进 制 进 行 处 理 的 ， 但 没 办 法 
进一步 理解 这 个 概念 。 事 实 上 ， 屏 幕 上 显示 的 文字 、 图 像 ， 或 者 音乐 、 视 
频 等 ， 在 计算 机 中 都 是 基于 二 进 制 存 储 的 。 这 里 先 介 绍 一 下 二 进 制 。 

首先 想 想 日 常 使 用 的 数字 。 数 数 时 我 们 都 是 0, 1, 2,…, 9, 10, 11, …， 
98, 99, 100, 101 这 样 数 下 去 的 。 把 这 里 用 到 的 数字 拆 开 来 之 后 ， 会 发 现 
加 9 文 10 个 数字 。 十 进 制 就 是 使 用 这 10 个 数字 来 表示 数 的 数字 

与 此 类 似 ， 二 进 制 只 使 用 0 和 1 来 表示 数 。 即 使 位 数 增加 ， 每 个 数位 
上 也 只 会 是 这 两 个 数字 之 一 ， 因 此 用 二 进 制 来 数 数 则 是 0, 1, 10, 11, 100， 
101, 110, 111, 1000, 1001,… 

十 进 制 数 3984 由 3 个 1000 (=103)、9 个 100 (=10?)、8 个 10 (=10!) 
和 4 个 1(=10°) 组 成 。 同 样 地 ， 二 进 制 数 1011 由 1 个 8(= 23) 0 个 4 
(=2)、1 个 2(=2!1) 和 1 个 1(=2) 组 成 。 

也 就 是 说 ， 二 进 制 数 1011 是 8 + 0 + 2 + 1， 对 应 十 进 制 数 11。 反 
过 来 ， 知 道 十 进 制 数 要 求 二 进 制 数 时 ， 则 是 用 这 个 数 除 以 2， 得 到 的 商 再 
除 以 2， 再 用 这 一 步 得 到 的 商 除 以 2， 直 到 商 变 为 0。 最 后 ， 把 过 程 中 得 
到 的 余数 逆序 排列 就 能 得 到 相应 的 二 进 制 数 。 

举 个 例子 ， 如 果 给 定 十 进 制 数 19， 则 求 对 应 的 二 进 制 数 的 过 程 如 下 。 


19:2=9 余 1 
9-2=4 余 1 
4-2=2 余 0 
2-2=1 余 0 
1:2=0 余 1 


从 下 往 上 排列 余数 后 就 可 以 得 到 二 进 制 数 10011。 
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01 回 文 十 进 制 数 
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如 果 把 某 个 数 的 各 个 数字 按 相反 的 十 进 制 数 、 二 进 制 数 和 八进制 
得 到 的 数 和 原来 的 数 相同 ， 则 。 数 示例 
个 数 就 是 “ 回 文 数 ”。 壁 如 123454321 | 
人 1 1 1 
2 10 2 
问题 3 直 3 
4 100 4 
a 5 101 5 
求 用 十 进 制 、 二 进 制 、 八 进 制 表示 都 是 回 | 1 
文 数 的 所 有 数字 中 ， 大 于 十 进 制 数 10 的 最 |7 11 7 
小 值 。 8 000 10 
9 1001 11 
10 1010 2 
例 ) 9 ( 十 进 制 数 ) = 1001 ( 二 进 制 数 ) 已 1 它 
= 11( 八进制 数 ) TR 
要 求 。 15 1 1 
16 0000 20 


“ 回 文 数 ”这 个 词 还 是 第 一 
妈 ” 这 样 的 ? 


况 听 说 呢 。 是 不 是 像 “妈妈 爱 我 ， 我 爱 妈 


是 的 。 像 “妈妈 爱 我 ， 我 爱 妈 妈 ” 这 样 的 句子 就 是 “ 回 文 ”， 而 问题 
里 是 数字 的 排列 组 合 ， 因 此 称 为 “ 回 文 数 ”。 


很 有 趣 宁 。 二 进 利 数 和 十 进 币 数 我 用 得 比较 多 , 八进制 数 没 用 过 , 但 
思路 应 该 是 一 样 的 吧 ? 


八进制 使 用 曲 数 字 是 0~7 这 8 个 ， 利 下 拘 就 和 二 进 制 曲 规 律 一 致 了 。 
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因为 是 二 进 制 的 回 文 数 ， 所 以 如 果 最 低位 是 0， 那么 相应 地 最 高 位 
也 是 0。 但 是 ， 以 0 开头 肯定 是 不 恰当 的 ， 巾 此 可 知 最 低位 为 1。 

如 果 用 二 进 制 表示 时 最 低位 为 1， 那 这 个 数 一 定 是 奇数 ， 因 此 只 考 
虑 奇数 的 情况 就 可 以 。 接 下 来 可 以 简单 地 编写 程序 ， 从 10 的 下 一 个 数 
字 11 开始 ， 按 顺序 搜索 。 壁 如 用 Ruby 就 可 以 通过 下 面 的 代码 找到 符合 
条 件 的 数 (代码 清单 01.01 )。 


代码 清单 01.01 (q01_01.rb) 


# 从 11 开始 搜索 
num = 11 
wheoles true 
if num.to s == num.to s.reverse && 
num EONS(8) == num EONS (8 everse eet 
numetonme (2 == num EONS (2) everse 
puts num 
seals 
end 
# 只 搜索 奇数 ， 每 次 加 2 
num += 2 
end 


Ruby 翅 数 转 损 成 二 进 制 或 者 八进制 时 ， 只 需要 ;i 周 用 to_s 方法 就 可 


以 3 了 呢 。 


通过 给 整数 实例 (Integer> 的 to_s 方 法 传递 参数 ， 不 仅 可 以 转换 
成 二 进 制 、 八 进 制 ， 也 可 以 转换 成 十 六 进 制 。 


Ruby 的 字符 串 还 内 置 3 reverse 方法 , 只 需要 调用 这 个 方法 就 可 以 


得 到 逆序 字符 串 ， 这 个 功能 非常 方便 。 
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下 面试 着 用 JavaScript 实现 同样 的 逻辑 。JavaScript 里 没有 内 置 把 字 
符 串 逆序 的 标准 函数 ， 因 此 首先 需要 封装 一 个 返回 逆序 字符 串 的 方法 ， 
其 他 流程 则 和 代码 清单 01.01 中 的 一 致 。JavaScript 版 本 的 实现 如 代码 清 
单 01.02 所 示 。 


代码 清单 o1.02 (901 02.js ) 


/* 为 字符 串 类 型 添加 返回 逆序 字符 串 的 方法 */ 
String.prototype.reverse = function (){ 
return thseopl reversel) onm 已 玉 


】 
/* 从 11 开 始 搜索 */ 


var num = ly 
while (true){ 


E(u os um to reversel ee 
(num.toString(8) == num.toString(8) .reverse()) && 
(num.toString(2) == num.toString(2) .reverse())){ 

console.1log (num) ; 
break; 


只 搜索 奇数 ， 每 次 加 2 */ 


Wn + 三 ,23 


比 Ruby 版 上 本 多 出 来 的 就 是 一 开始 的 返回 逆序 字条 串 的 方法 呵 。 


符 串 分 割 成 数组 ， 再 逆序 拼装 成 字符 


实现 思路 是 翅 字 


既然 数组 有 逆序 处 理 接口 ， 为 什么 字符 串 不 提供 这 个 功能 呢 ? 
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很 多 语言 都 提供 了 把 整数 转换 成 二 进 制 数 或 者 八进制 数 的 方 
法 。 表 2 汇总 了 代表 性 语言 的 相关 函数 或 者 方法 ， 不 过 C 语言 并 没有 
提供 直接 转换 的 接口 。 


各 编程 语言 中 进 制 转换 的 接口 


to_s(2) to_s(8) to_s(16) 


decbin decoct dechex 


bin Oct hex 
JavaScript toString(2) toString(8) toString(16) 
Java toBinaryString toOctalString toHexString 


Convert.ToString 
Convert.ToString | Convert.ToString | 或 者 
ToString("X") 


不 同 编程 语言 里 由 应 的 接口 名 称 都 不 一 样 啊 ， 记 住 这 些 太 朵 炳 了 。 


首先 还 是 要 掌 气 一 门 自己 擅长 的 语 


的 确 是 这 样 ， 只 要 掌握 了 一 门 语言 ， 
方法 就 可 以 了。 


( 二 进 制 数 是 1001001001 ) 
八进制 数 是 1111 
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02 数列 的 四 则 运算 


pIIIIIII IIIII II I I I II I II I I I III I III I I II I I I II II II III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


大 家 小 时 候 可 能 也 玩 过 “组 合 车 牌号 里 的 4 个 数字 最 终 得 到 10” 的 
游戏 。 

组 合 的 方法 是 在 各 个 数字 之 间 插 入 四 则 运算 的 运算 符 组 成 算式 ， 然 
后 计算 算式 的 结果 ( 某 些 数位 之 间 可 以 没有 运算 符 , 但 最 少 要 插入 1 个 
运算 符 )。 


例 ) 1234 一 1+2x3-4=3 
9876 一 9x87+6=789 


假设 这 里 的 条 件 是 ， 组 合算 式 的 计算 结果 为 “将 原 数字 各 个 数位 上 
的 数 逆序 排列 得 到 的 数 "， 并 且 算 式 的 运算 按照 四 则 运算 的 顺序 进行 
( 先 乘除 ， 后 加 减 )。 

那么 位 于 100~999， 符 合 条 件 的 有 以 下 几 种 情况 。 


351 一 3x51= 153 
621 一 6x21= 126 
886 一 8x86=688 


求 位 于 1000~9999， 满 足 上 述 条 件 的 数 。 


加 入 运算 等 倒 是 不 圣 ，z 难 的 是 如 何 计算 算式 吧 。 


利用 编程 语言 内 置 的 迎 数 或 者 功能 就 很 简单 哦 。 
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解决 这 个 问题 时 ,“ 计 算 算 式 的 方法 ”会 影响 实现 方法 。 如 果 要 实 
现 的 是 计算 器 , 那么 通常 会 用 到 首 波 兰 表 示 法 下 , 而 本 题 则 是 使 用 编程 语 
言 内 置 的 功能 来 实现 更 为 简单 。 

很 多 脚本 语言 都 提供 了 类 似 eval 这 样 的 标准 函数 。 壁 如 用 
JavaScript 实现 时 ， 可 以 用 代码 清单 02.01 解决 问题 。 


代码 清单 02.01 (gq02 01.js ) 


var op see ne MAD 0D, We 
EO (LL O00 OO ET 放 于 
WE 
for (j= 07 本 ODASEDOED j++){ 
for (k = 0; k < op.length; k++){ 
fOr 0 op engthn ol 
veal ev enaraAt(e) topline enaraAtl(2) Opel 
ocharenae( oplul en enarAc( oD 
二 
if (i == eval(val)){ 
eomsoLuerlo( va 


第 10 行 中 的 eval 就 是 本 题 的 关键 点 ， 接 下 来 只 是 选择 和 设置 运算 
符 了 。 虽 然 有 比较 深 的 循环 戏 套 ， 但 只 要 确定 了 位 数 就 没有 问题 。 


的 确 ， 如 果 只 是 对 比 和 评估 字符 串 鬼 算 式 ， 这 样 实现 就 足 哆 了 。 


我 发 现 一 旦 用 3 “*#” 以 外 的 任意 运算 符 ， 景 终 的 结果 就 潜 不 驶 4 位 
数 了 。 


说 得 很 对 。 用 “+” 时 , 景 大 揭 值 只 有 999 + 9 = 1008。 北 序 排列 
不 可 能 得 到 原始 值 。 当 然 ， 用 “一 ”也 不 可 能 。 


( 递 波 兰 表 示 法 (Reverse Polish notation，RPN ) 也 称 逆 波兰 记 法 ， 是 由 波兰 数学 
家 扬 . 武 卡 谢 维 奇 于 1920 年 引入 的 数学 表达 式 ， 在 遂 波 兰 记 法 中 ， 所 有 操作 符 
置 于 操作 数 的 后 面 ， 因 此 也 被 称 为 后 组 表示 法 。 一 一 编者 注 
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基于 这 样 的 考虑 ， 如 果 把 代码 第 1 行 的 op 变量 设置 成 以 下 值 ， 可 
以 进一步 提高 程序 执行 效率 。 


Var op = [rxrn, wm]; 


如 果 用 其 他 语言 实现 同样 逻辑 ， 需 要 对 0 进行 特别 处 理 。 例 如 在 
Ruby 中 ,“ 以 0 开头 的 数 ” 会 被 当 作 八进制 数 来 处 理 , 因此 必须 排除 以 
0 开头 的 数 。 此 外 ， 也 需要 排除 除数 为 0 的 情况 。 


我 打算 用 C 语 言 来 实现 -人 遍 ， 但 发 现 没 有 eval 这 样 的 函数 。 


PSRN 
eo 很 多 野 本 语言 都 提供 eval 这 样 的 函数 ， 但 C 语 言 里 没有 这 类 功能 。 
< 人 从 ~ 这 种 情况 下 ， 可 以 使 用 “ 逆 波 兰 表 示 法 ” 竺 实现 算式 计算 。 
a 


“ 逆 波兰 表示 法 ”也 常常 出 现在 初 当 者 网 编程 练习 题 中 呢 。 


5931 (5*9*31 = 1395) 


@ Column ~ 

本 书 以 Ruby 为 主要 语言 编写 源 代码 ， 但 也 有 像 本 题 一 样 用 
JavaScript 实现 的 情况 。 凡 用 JavaScript 实现 时 ,结果 都 用 console. log 来 
输出 , 这 个 结果 可 以 用 浏览 器 来 确认 。 用 Mozilla Firefox 浏览 器 打开 加 
载 了 JavaScript 源 代 码 的 HTML 文件 ， 然 后 打开 “开发 者 ”一 “Web 
控制 台 ”( 如 果 用 Google Chrome wh le a Sb 全 和 
发 者 工具 ”)， 就 可 以 确认 代码 的 执行 结果 了 。 
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© Column 让 


eval 函数 的 危险 性 


本 题 使 用 了 eval 函数 。 这 个 函数 在 计算 算式 等 场景 下 非常 方便 ,但 
eval 可 以 做 到 的 事情 不 止 于 此 。 例 如 ， > 令 。 

如 果 在 Web 应 用 中 直接 用 eval 执行 用 户 输入 的 内 容 , 那么 用 户 可 

会 输入 并 让 程序 执行 任意 指令 ， 包 括 不 恰当 的 指令 。 举 个 例子 ， 假 
， 面 这 样 的 用 PHP 编写 的 Web 页 面 ( 代码 清单 02.02 )。 


| 代码 清单 02.02 (qd02 02.php ) 


<IDOCTYDPE html> 
ete mils 
<head> 
<meta charset="uUtf=8"> 
<title> 计算 器 </title> 
</head> 
<body> 
<Eorm method="post" action="<?php echo $s SERVERI'SCRIPT 
NAME'] ;?>"> 
<input tyDe=uEext, namne= "exp siz2e= SO 
<input type="submit" value=" 计 算 "> 
</form> 
QHRN 
<?php 
HEU(SS ERVERIRAOUESTIMETAIODN -POS {| 
Sexp POSTIMexou 
eval ("echo Sexp;"); 


} 


yl 
</body> 
El 


这 个 页 面 的 功能 就 是 计算 表单 中 输入 的 类 似 “1 + 2*3” 这 样 的 算 
式 ， 并 且 显 示 结 果 。 正 常 输入 算式 的 情况 当然 没有 问题 ， 但 根据 输入 
内 容 不 同 ， 我 们 还 可 以 执行 PHP 脚本 。 

举 个 例子 , 如 果 输 入 phpinfo(), 那么 PHP 的 版 本 等 信息 会 被 打印 
出 来 。 从 安全 的 角度 来 看 ， 这 是 非常 危险 的 。 
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EE ET 
03 翻 牌 
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这 里 有 100 张 写 着 数字 1~100 的 牌 ， 并 按 顺序 排列 着 。 最 开始 所 有 
是 背面 朝 上 放置 。 某 人 从 第 2 张 牌 开 始 ， 隔 1 张 牌 翻 牌 。 然 后 第 2， 
…, 100 张 牌 就 会 变 成 正面 朝 上 。 
i 另 一 个 人 从 第 3 张 牌 开始 ， 隔 2 张 牌 翻 牌 ( 原本 背面 朝 上 
的 ， 翻 转 成 正面 朝 上 ; 原本 正面 朝 上 的 ， 翻转 成 背面 朝 上 )。 再 接 下 来 ， 
又 有 一 个 人 从 第 4 张 牌 开始 ， 隔 3 张 牌 翻 牌 ( ) 
像 这 样 ， 从 第 n 张 牧 开始 ， 每 隔 n-1 张 牧 翻 牌 ， 直到 没有 可 翻动 


的 牌 为 止 。 
EN 
2 
eel Nal) 
BE 6 
翻 牌 示意 图 
i 


求 当 所 有 有 牌 不 再 变动 时 ， 所 有 背面 朝 上 的 牌 的 数字 。 


因为 只 是 单纯 从 左 往 右 的 处 理 ， 所 以 请 用 简单 的 方法 实现 。 
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思路 
只 要 根据 问题 描述 ， 按 顺序 对 牌 进行 翻转 处 理 就 可 以 了 。 用 数组 保 
存 牌 的 状态 ， 如 果 牌 正面 朝 上 ， 则 设置 值 为 true， 反 之 为 false。 这 样 一 
来 ,我们 就 可 以 简单 地 模拟 翻转 操作 了 。 用 Ruby 时 ， 可 以 用 下 面 这 个 
程序 来 实现 〈 代码 清单 03.01 )。 


代码 清单 03.01 ( q03_01.rb ) 


N 


} 


# 


# 初始 化 卡 牌 


= 100 


2 

while (j < cards.size) do 
eargdelln ueardel 
= 

end 


cards = Array .new(N, false) 


# 从 2 到 翻 牌 
(Ceacnllel 


俞 出 背面 朝 上 的 牌 


N.times{ |i| 
Busseq eeargsl nl 


如 果 熟 悉数 组 的 处 理 ， 这 个 问题 应 该 不 难 吧 ? 


是 啊 。 按 照 问 题 所 描述 曲 过 程 编 码 ， 很 简单 就 得 到 监 家 3 了 。 


012 


代码 清单 03.01 是 用 数组 来 实现 的 , 但 从 左 到 右 按 顺 序 处 理 也 就 意 
味 着 “已 经 翻转 过 的 部 分 不 再 翻转 ”。 如 果 针 对 这 一 点 进行 优化 ， 还 可 
以 继续 简化 程序 ， 具 体 如 代码 清单 03.02 所 示 。 
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代码 清单 03.02 (q03 02 .rpb ) 


(no ac 
flag = false 
C00 sae 
BE hem 
faage = ag 
end 
} 
ES 


} 


执行 这 个 代码 后 就 可 以 正确 输出 答案 “1、4、9、16、25、36、49、 
64、81、100”。 从 答案 可 以 看 到 ， 结 果 都 是 “平方 数 ”。 


[cr 


像 这 样 ， 由 2 个 相同 网 数 相 乘 得 到 网 就 是 平方 数 中 。 


RN 
3 同样 , 由 3 个 相同 的 数 相 乘 得 到 的 “1, 8, 27, 64, 125, 216, …” 
全 入 、 “立方 数 "， 可 以 -起 记 F 来 。 
MM 


如 果 翻 牌 操作 进行 了 奇数 次 ， 则 最 后 是 正面 朝 上 ; 如 果 进 行 了 偶数 
次 ， 则 最 后 是 背面 朝 上 。 也 就 是 说 ， 这 个 问题 等 价 于 “寻找 被 翻转 次 数 
为 偶数 的 牌 ”。 而 翻 牌 操作 的 时 机 则 是 “ 翻 牌 间隔 数字 是 这 个 数 的 约 数 
时 ”， 因 此 也 就 相当 于 寻找 拥有 偶数 个 “1 以 外 的 约 数 ”的 数字 。 

举 个 例子 ，12 的 约 数 是 “1、2、3、4、6、12” 这 6 个， 也 就 是 偶数 
个 。 把 约 数 由 小 到 大 排列 ， 并 将 两 端的 数 按 顺序 相 乘 就 可 以 得 到 原 数 。 


例 ) 1x12,2x6,3x4 

不 过 16 的 约 数 是 “1、2、4、8、16” 这 5 个， 也 就 是 奇数 个 。 我 
们 把 约 数 从 小 到 大 排列 ， 并 将 两 端的 数 按 顺序 相 乘 后 ， 会 镜 下 正中 间 的 
数字 4。 

例 ) 1x16,2x8 

※ 剩 下 的 数字 乘 以 自身 就 可 以 得 到 原 数 ( 4x4 = 16 ) 

也 就 是 说 ， 只 有 当 牌 面 数字 是 平方 数 的 时 候 约 数 才 是 奇数 个 ， 也 就 
是 除 1 以 外 的 约 数 是 偶数 个 。 了 解 到 这 个 规律 后 ， 即 便 不 编程 ， 也 能 知 
道 答 案 。 在 日 常 工 作 中 ， 动 手 编程 之 前 最 好 也 像 这 样 好 好 想 一 想 。 
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讨厌 麻烦 的 人 比较 适合 做 程序 员 吗 


程序 员 是 个 非常 有 魅力 的 职业 ， 他 们 写 几 行 代码 就 能 从 零 开始 创 
造 新 的 价值 。 从 某 种 意义 上 说 ， 这 可 以 称 得 上 是 “发 明 创 造 "。 

大 家 有 时 候 也 会 谈论 , 适合 这 种 职业 的 完 竟 是 什么 样 的 人 呢 ? 提 
到 程序 员 ， 大 家 通常 会 有 理工 科大 学 毕业 、 宅 、 喜 欢 游戏 等 印象 。 事 
实 上 ， 在 编程 开发 的 前 线 ， 文 科 出 身 的 程序 员 还 是 挺 多 的 ， 也 有 很 喜 
欢 运 动 的 程序 员 。 

如 果 非 要 给 出 一 个 适合 做 程序 员 的 条 件 ， 我 的 第 一 反应 是 “讨厌 
麻烦 ”这 几 个 字 ， 也 就 是 不 喜欢 重复 机 械 的 工作 ， 和 希望 尽 可 能 地 实现 
自动 化 。 如 果 某 个 工作 需要 花费 30 分 钟 进行 机 械 重 复 的 操作 , 程序 员 
可 能 会 为 了 瞬间 完成 工作 而 花费 1 个 小 时 来 编程 实现 。 大 概 就 是 这 种 
心境 吧 。 

事实 上 ,我 学 习 编程 的 契机 也 是 碰 到 了 麻烦 的 事情 。 学 生 时 期 , 老 
师 告诉 我 ， 要 想 记 住 键盘 上 的 键 位 ， 就 要 不 断 地 从 A 斋 到 Z。 要 一 直 
重复 练习 ， 直 到 让 屏幕 填 满 字母 。 

我 很 讨厌 这 种 重复 劳动 ， 为 了 轻松 一 点 ， 就 编写 了 一 个 自动 让 屏 
幕 填 满 A 到 Z 的 程序 。 保 存 好 这 个 程序 之 后 ， 下 一 次 再 执行 ,就 可 以 
一 瞬间 将 字母 填 满 屏幕 。 

在 那 之 后 ， 每 当 遇 到 麻烦 的 事情 ， 我 就 不 断 编写 程序 来 解决 ， 无 
形 中 练 就 各 种 编程 技巧 。 我 与 编程 因 琐 碎 小 事 而 邂 后, 如 今 算 来 都 已 
经 20 余 年 了]。 
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0 小 切 分 木 棒 
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假设 要 把 长 度 为 n 厘米 的 木 棒 切 分 为 1 厘米 长 的 小 段 ， 但 是 1 根木 
棒 只 能 由 1 人 切 分 ， 当 木 棒 被 切 分 为 3 段 后 ， 可 以 同时 由 3 个 人 分 别 切 
分 木 棒 ( 攻占 )。 

求 最 多 有 m 个 人 时 ,最 少 要 切 分 几 次 。 壁 如 n = 8,m = 3 时 如 下 
图 所 示 ， 切 分 4 次 就 可 以 了 。 


、 甸 因为 只 有 3 个 人 ， 
A 所 以 剩 下 1 根木 棒 


-全 自 目 站 目下 
sonnogn 


IE 四， = 8，m = 3 的 时 候 


求 当 n = 20，m = 3 时 的 最 少 切 分 次 数 。 


求 当 n = 100，m = 5 时 的 最 少 切 分 次 数 。 


如 果 人 数 足 攀 ， 每 况 都 对 半 切 分 所 有 木 峙 应 该 是 景 快 曲 。 


因为 存在 人 数 限 制 ， 所 以 诀 窑 在 于 要 尽量 不 让 人 空闲 下 来 。 
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像 这 样 的 问题 用 递归 最 容易 描述 。 可 以 想象 一 下 ， 切 分 后 的 木 枞 会 
像 切 分 前 的 木 棒 一 样 继续 被 切 分 。 如 果 用 Ruby， 可 以 像 代码 清单 04.01 
这 样 解决 问题 。 


def re 
EE 

0 

els 

els 


代码 清单 04 .01 (q04_01.rb ) 


nea en 
end 
end 
Snes cuaseml(s, 20; T) 
puesS cutban(s oo 


utbar (m,n, current) # current 是 目前 木 棒 的 根 数 
current >= n then 

# 完成 切 分 

Lf ount mm Enenm 

+ Cutbar (m,n，current * 2) # 接 下 来 是 现在 根 数 的 2 倍 
e 


cutbar 函 数 又 凋 用 了 同样 名 称 的 Cutbar 函 数 ， 这 是 怎么 回 事 儿 呢 ? 


像 这 样 ， 函 数 〈 方法》 调用 函数 自身 就 称 为 “递归 调用 "。 


想 要 重复 同样 扑 理 的 时 候 用 递归 会 很 方便 哦 。 


为 了 避免 周 用 尾 次 过 深 , 每 个 遂 归 函数 都 会 设 定 一 个 终止 条 件 。 递 归 
函数 有 个 好 钼 就 是 代码 非常 痪 洁 。 


稍稍 改变 一 下 思路 会 发 现 ， 还 有 另 一 个 方法 可 以 解决 问题 。 疼 向 思 
考 后 ， 本 题 题 干 可 以 等 价 为 下 个 人 黏合 1 厘米 的 木 棒 以 组 成 n 厘米 的 木 
棒 。 也 就 是 说 ， 最 终 使 儿 合 的 木 棒 总 长 度 为 半 厘 米 就 可 以 了 。 代 码 清单 


04.02 实 
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代码 清单 04.02 ( q04_02.rb ) 


defyeutbDar (mn 
Gone 0 
current = 1 # current 是 当前 长 度 
while n > current do 
euerent ourent .m2 uenee:mm 
coune ecu 
end 
Buts (Count) 
end 


euUtban(e p20) 
eurba(e L000 


思路 容易 理解 多 了 。 话 说 回来 , 需 5 行 的 “?” 和 “:” 是 什么 啊 ? 


PN 
a 这 是 “三 目 运算 和 蔡 "， 在 “?” 在 边 则 条 件 共 合 则 情况 下 执行 “?” 和 
< 克之 间 的 处理 ,否则 执行 “:” 右 侧 的 由理 。 
M 


= 区 问题 1, n 
问题 2,，n 


20，m = 3 时 答案 为 8 次 
100，m = 5 时 答案 为 22 次 
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深度 优先 搜索 和 广度 优先 搜索 


进行 本 题 中 这 样 的 搜索 的 时 候 , 使 用 “递归 ”是 非常 方便 的 。 本 
题 中 使 用 的 递归 是 “深度 优先 搜索 ”， 又 称 “ 回 漳 法 ”,， 其 特征 是 一 直 
向 下 搜索 , 无 法 继续 时 返回 。 打 个 比方 来 说 , 这 就 像 是 读书 的 时 候 单 
纯 地 按 顺 序 读 下 去 ( 医 目 )。 

除 此 以 外 ,“ 广 度 优先 搜索 ”也 非常 有 用 。 它 是 一 种 每 次 穷 举 离 出 
发 点 最 近 的 所 有 节点 ， 并 对 每 一 个 节点 进行 详细 搜索 的 方法 。 打 个 比 
方 来 说 ， 这 就 像 读书 的 时 候 先 整体 把 握 目 录 ， 再 读 每 一 章 的 梗概 ， 接 
下 来 再 读 每 一 章 的 内 容 这 样 渐次 深入 的 方法 ( 医 罩 )。 

求 所 有 答案 的 时 候 ， 使 用 深度 优先 搜索 可 以 降低 内 存 使 用 量 。 而 
如 果 要 用 最 短路 径 搜 索 某 个 节点 时 ， 广 度 优 先 搜索 的 效率 更 高 。 

另外 还 有 一 种 介 于 这 两 种 之 间 的 方法 ， 叫 “和 迭代 深化 "， 也 就 是 以 
一 定 的 深度 进行 深度 优先 搜索 ， 搜 索 不 到 结果 的 时 候 再 以 更 深 的 深度 
进行 深度 优先 搜索 ， 如 此 循环 的 方法 。 

请 大 家 在 了 解 这些 搜 索 算 法 的 特征 之 后 ， 根 据 问题 的 特征 和 要 求 
来 选用 不 同 的 方法 。 


深度 优先 搜索 的 搜索 顺序 广度 优先 搜索 的 搜索 顺序 
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05 还 在 用 现金 支付 吗 
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当下 ， 坐 公交 或 者 地 铁 时 大 部 分 人 都 是 刷卡 的 。 不 过 ， 时 至 今日 还 
在 用 现金 支付 的 人 还 是 比 想象 的 多 。 本 题 我 们 以 安置 在 公交 上 的 零钱 竞 
换 机 为 背景 。 

这 个 机 器 可 以 用 纸币 兑换 到 10 日 元 、50 日 元 、100 日 元 和 500 日 
元 硬币 的 组 合 ， 且 每 种 硬币 的 数量 都 足够 多 ( 因为 公交 接受 的 最 小 额度 
为 10 日 元 ， 所 以 不 提供 1 日 元 和 5 日 元 的 硬币 )。 

兑换 时 ， 人 允许 机 器 兑换 出 本 次 支付 时 用 不 到 的 硬币 。 此 外 ， 因 为 在 
乘坐 公交 时 ， 如 果 兑 换 出 了 大 量 的 零钱 会 比较 不 便 ， 所 以 只 允许 机 器 最 
多 兑换 出 15 枚 硬币 。 壁 如 用 1000 日 元 纸币 兑换 时 ， 就 不 能 兑换 出 
“100 枚 10 日 元 硬币 ”的 组 合 〈E 加 )。 


求 兑换 1000 日 元 纸币 时 会 出 现 多 少 种 组 合 ? 注意 ,不 计 硬 币 兑 出 的 先后 顺序 。 


©OOO0OO0000000 
OOO0O000 
SOOOOO0 


OOOO00000000 


兑换 示例 
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这 道 题 并 不 复杂 ， 单 纯 地 解 开 并 不 是 什么 难事 。 只 需要 把 满足 条 件 
的 硬币 组 合 一 一 列举 出 来 就 可 以 了 。 壁 如 想 简单 地 使 用 循环 来 解答 时 ， 
用 Ruby 就 可 以 实现 ,代码 如 代码 清单 05.01 所 示 。 


代码 清单 05.01 (qo05_01.rb ) 


cnt = 0 
(0..2) .each{ |coin500 | # 500 日 元 硬币 最 多 2 枚 
(0..10) .each{ |coin100| # 100 日 元 硬币 最 多 10 枚 
(0..15) .each{ |coin50| # 50 日 元 硬币 最 多 15 枚 


(0..15) .each{ |coin10| # 10 日 元 硬币 最 多 15 枚 
TREECOTSOOE eormloon oomso ernlo lo henm 
eos S00 een Looe 
Sommeom So EGR lo = = L000menmen 
cnt += 1 
ed 
end 
} 
} 
) 
} 


Puesyene 


Ye 这 个 思路 我 也 可 以 轻松 理解 呢 ， 真 好 。 


咽 ， 拘 确 非常 直观 。 不 过 这 种 实现 方式 可 扩展 性 很 差 吧 ? 


正 是 这 样 。 举 个 俩 子 ， 如 果 投 入 的 纸币 是 1000 日 元 、5000 日 元 或 
者 10000 日 元 呢 ? 另外 ， 如 果 景 大 硬币 朴 数 改变 3 了， 循环 次 数 也 就 


不 对 3 了。 


所 以 ,我 们 需要 设计 可 以 更 灵活 地 应 对 变化 的 算法 (这 里 不 考虑 
处 理 速度 ， 单 纯 从 可 扩展 性 的 角度 出 发 )， 壁 如 代码 清单 05.02 的 实现 
方式 。 


020 | 第 1 章 入 门 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


代码 清单 05.02 (q05_ 02.rb ) 


SOLmns = 0 So L000 
ene 0 
(each doaled 
coins.repeated combination(i) .each{|coin set| 


Cente t= Toone no = = 000 
b 
eng 
usene 


第 5 行 的 inject(:+) 是 什么 意思 吗 ? 第 一 况 看 到 这 种 


(RN 
Ne Ruby 中 ， 用 这 种 写法 可 以 求 数组 元 泰 的 和 。 
MH, 
、 
全 也 就 是 说 ， 如 果 存在 一 个 [1, 2, 3] 数 组 ， 就 会 计算 1+2+ 3， 返 回 
0 计算 结果 6 ? 


对 。 当 然 还 有 用 循环 来 计算 的 方法 ， 但 代码 清单 05.02 网 实现 更 光 
疼 止 上 


里 一 竺 。 


如 果 是 这 


这 样 的 程序 ， 那 么 即使 在 改变 硬币 面值 、 目 标 纸 币 面值 等 
时 ， 也 能 一 眼看 到 要 改 哪 些 地 方 。 
这 个 逻辑 还 可 以 利用 递归 来 实现 〈 代 码 清单 05.03 )。 


@cnt = 0 
def change (target, coins, usable) 
Gn reo nl 


EON Ne == 0 em 
@ent += 1 if target / coin <= Usable 
else 


(0 target /conn eacmlal 
ehangel(targdet con i coms clone Usablee 9 


end 
end 
elenoe (ooolsoomN oo so on Ls 
puts @cnt 
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这 样 厅 。 如 果 用 这 种 实现 方式 ， 只 需要 改 一 下 第 12 行 就 可 以 应 对 各 
种 变化 3 呢 。 


能 写 出 应 对 频 蚂 需求 变化 拘 程序 也 是 一 种 重要 的 能 力 。 


这 种 情况 用 遂 归 来 实现 趴 是 非常 优雅 呀 。 


识 悉 了 诞 归 之 后 ， 可 以 大 大 提 舌 编程 能 力 ， 所 以 一 定 罩 学 会 恰当 应 用 
各 种 编程 技巧 哦 。 


虽然 用 过 程式 语言 也 能 学 习 递 归 , 但 哪怕 掌握 一 点 点 函数 式 语言 ， 
就 能 对 理解 递归 有 所 神 益 。 在 函数 式 语言 里 ， 用 递归 实现 循环 功能 的 
做 法 非常 普遍 。 也 就 是 说 ， 用 函数 式 语言 编程 基本 上 离 不 开 递 归 。 

LISP、Scheme、Haskell 等 是 代表 性 的 函数 式 语 言 , 此 外 使 用 Scala、 
Python 等 也 可 以 学 习 到 函数 式 语 言 的 特性 。 可 以 尝试 把 其 他 语言 里 的 
循环 用 函数 式 语言 的 方式 ( 不 使 用 循环 ) 来 实现 。 

熟悉 了 这 种 写法 后 ， 你 会 发 现 ， 用 递归 来 实现 循环 应 该 就 不 困难 
了 。 不 过 , 反 过 来 可 能 又 会 觉得 把 递归 的 写法 转换 成 循环 会 比较 难 , 所 
以 请 务必 多 做 一 些 这 样 的 写法 转换 训练 。 
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06 (改版 ) 考 拉 兹 狂想 
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“ 考 拉 效 猜想 ”是 一 个 数学 上 的 未 解 之 谜 。 


考 拉 将 猜想 


对 自然 数 n 循环 执行 如 下 操作 。 
“nn 是 偶数 时 ， 用 nn 除 以 2 


“n 是 奇数 时 ， 用 nn 乘 以 3 后 加 1 
如 此 循环 操作 的 话 ， 无 论 初始 值 是 什么 数字 ， 最 终 都 会 得 到 1 ( 会 进入 
1 一 4 一 2 一 1 这 个 循环 )。 


这 里 我 们 稍微 修改 一 下 这 个 猜想 的 内 容 ， 即 假设 初始 值 为 偶数 时 ， 
也 用 nn 乘 以 3 后 加 1, 但 愉 是 在 第 一 次 这 样 操作 ,后面 的 循环 操作 不 变 
而 我 们 要 考虑 的 则 是 在 这 个 条 件 下 最 终 又 能 回 到 初始 值 的 数 。 

璧 如 ， 以 2 为 初始 值 ， 则 计算 过 程 如 下 。 

2 一 7 一 22 一 11 一 34 一 17 一 52 一 26 一 13 一 40 一 20 一 10 一 5 一 

16 一 8 一 4 一 2 

同样 ， 如 果 初 始 值 为 4， 则 计算 过 程 如 下 。 

4 一 13 一 40 一 20 一 10 一 5 一 16 一 8 一 4 

但 如 果 初 始 值 为 6， 则 计算 过 程 如 下 ， 并 不 能 回 到 初始 值 6。 

6 一 19 一 58 一 29 一 88 一 44 一 22 一 11 一 34 一 17 一 52 一 26 一 13 

*40 一 20 一 10 一 5 一 16 一 8 一 4 一 2 一 1 一 4 一 … 


求 在 小 于 10000 的 偶数 中 , 像 上 述 的 2 或 者 4 这 样 “ 能 回 到 初始 值 的 数 ” 有 
多 少 个 。 


in 包 
Ht A 
@ N=/ 


如 果 计 算得 到 3 1 或 者 初始 值 ， 就 可 以 结束 循环 3。 
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考 拉 效 猜想 认为 “无 论 初始 值 是 什么 数字 ， 最 终 都 能 计算 得 到 1”。 
这 次 的 问题 只 是 改变 了 初始 值 的 计算 形式 ， 因 此 如 果 继 续 计 算 下 去 ， 最 
终 还 是 会 得 到 1 的 。 

那么 ， 下 面 就 请 试 着 编程 ， 找 出 “在 数字 变 为 1 之 前 ， 能 回 到 初始 
值 的 数 "。 用 Ruby 来 实现 的 话 ， 可 以 像 代码 清单 06.01 这 样 写 。 


代码 清单 06.01 (q06_01.rb ) 


# 检测 是 否 形成 环 

def soon) 
# 最 开始 乘 以 3 并 加 1 
= 


# 一 直 循环 到 数字 变 为 1 


while check != 1 do 
check = check.even? ? check / 2 : check * 3 +1 
eeurn tue Ee eneclke = =m 
end 
return false 
end 


# 检查 2 ~ 10000 的 所 有 偶数 
puts 2.step(10000，2) .count{|i| 
EE exej ol( te) 


J 了 又 出 现 三 目 运算 笨 了 3 了， 现在 看 看 也 不 是 很 淮 啊 。 


昌 然 本 题 要 求 的 是 2 到 10000 之 间 答 合 条 件 的 偶数 ， 但 即使 她 数 字 
上 限 增 大 ， 也 找 不 到 更 多 疹 合 条 件 揭 偶 数 了 3， 好 神奇 吗 。 
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. EE 2055 
07 日 期 的 二 进 制 转换 


ppIIIIIII IIIII II I I I II I II I I I II I I II I I II I II I I I I II III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


日 期 的 表示 方式 有 很 多 种 。 日 本 用 公历 或 者 和 历 ， 美国 和 英国 都 用 
“/” 来 划分 年 月 日 ， 其 中 美国 是 “月 /日 /年 "， 英 国 则 是 “日 /月 / 
年 "， 各 个 国家 各 不 相同 。 


把 年 月 日 表示 为 YYYYMMDD 这 样 的 8 位 整数 ， 然 后 把 这 个 整数 转换 成 
二 进 制 数 并 且 逆序 排列 ， 再 把 得 到 的 二 进 制 数 转换 成 十 进 制 数 , 求 与 原 日 期 一 
致 的 日 期 。 求 得 的 日 期 要 在 上 一 次 东京 奥运 会 ( 1964 年 10 月 10 日 ) 到 下 一 
次 东京 奥运 会 ( 预定 举办 日 期 为 2020 年 7 月 24 日 ) 之 间 。 


例 ) 日 期 为 1966 年 7 月 13 日 时 
(QD YYYYMMDD 格式 一 19660713 
@ 转换 成 二 进 制 数 一 1001010111111111110101001 
G@) 逆序 排列 一 1001010111111111110101001 
人 把 逆序 排列 得 到 的 二 进 制 数 转 换 成 十 进 制 数 一 19660713 
ee 回 到 1966 年 7 月 13 日 ( 最初 的 日 期 ) 


二 进 制 在 前 面 的 Q01 里 学 过 3， 应 该 没 问题 吧 ? 


这 里 如 何 处 理 日 期 是 关键 。 特 别 是 每 个 
虑 国 年 的 问题 。 


月 的 天 数 不 只 相同 , 还 需要 者 


暑 汪 语言 大 多 都 有 处 理 日 期 的 工具 库 ， 可 以 利用 起 来 。 
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大 致 有 两 种 方法 可 以 解决 这 个 问题 。 一 种 是 遵循 题 意 ， 把 日 期 转换 
成 二 进 制 数 ， 再 逆序 排列 。 之 前 的 问题 里 已 经 提 到 过 ， 用 Ruby 进行 二 
进 制 或 者 十 进 制 转换 是 非常 方便 的 。 只 需要 按 顺 序 遍历 问题 中 指定 的 日 
期 区 间 ， 输 出 符合 条 件 的 日 期 就 可 以 了 (代码 清单 07.01 )。 


代码 清单 07.01 (q07_01.rb ) 


# 读 入 处 理 日 期 的 Date 库 
egouwes date 


# 指定 遍历 的 日 期 区 间 
Lerm = Date arse( tM Dale Darse (O20) 


# 转换 成 数值 


tesmBlist termmapllala sere vm on 


# 输出 转换 结果 和 自身 一 致 的 值 


puts Cermlist selecellala=a tonsl(2 reverse ES 让 


是 的 。 准 确 地 说 , t0_s(2) 是 返回 二 进 和 制 字 壬 串 。 因 为 已 经 转 损 成 3 
宇 等 串 , 所 以 可 以 直接 调用 reverse 方 法 ,从 而 逆序 排列 。 然 后 , 调 
用 to-i(2) 就 可 以 把 二 进 制 字 先 申 转 损 成 数值 。 


这 个 方法 很 容易 理解 ， 不 过 存在 运行 次 数 过 多 的 缺点 。 下 面 介绍 第 
二 种 方法 ， 就 是 判断 一 个 “对 称 的 二 进 制 数 ”是 不 是 “符合 问题 要 求 的 
日 期 ”的 方法 。 

把 本 题 指定 的 日 期 区 间 换 算 成 二 进 制 可 以 得 到 如 下 结果 。 


19641010 是 1001010111011001010110010 
20200724 是 1001101000011110100010100 
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文 四 位 开头 的 呢 ， 并 且 位 数 也 都 是 25 位 。 


两 个 数 都 是 以 1001 这 


(| 

(一 

>/ 之 眼光 很 歌 赔 嘛 。 注 意 到 这 个 视 律 ， 训 可 以 大 幅 朋 减 搜 索 范围 3。 
oA No, 


利用 这 个 规律 通过 Ruby 实现 逻辑 时 ， 代 码 如 代码 清单 07.02 所 示 。 
关键 点 在 于 为 了 表现 出 左右 对 称 性 ， 要 分 别 进行 左 侧 和 右 侧 的 处 理 。 


| 代码 清单 07.02 (907 02.rb ) 


# 读 入 处 理 日 期 的 Date 库 


edUasee celts 


# 取出 日 期 区 间 的 二 进 制 数 的 第 5 个 字符 到 第 8 个 字符 的 值 
EromnleEt L964n0Non to A oN) 
ES 20200724° tOoNS (2) 148] toN(2) 
# 遍历 左 侧 和 右 侧 的 8 个 字符 
from left.upto(to left){|i| 

1 = "%08b" $ 辣 # 左 侧 

r = 1.reverse # 右 侧 

(0..1) .each{|m| # 中 间 

wai = WoO bl 


begin 
Puls Dates parsel(value on Cons st etet me tvs 
rescue # 忽略 无 效 日 
end 
} 


不 过 这 样 程序 就 有 点 必 不 易 读 了 , 并 且 不 易于 扩展 。 如 果 求 值 区 间 改 
变 3， 就 蝎 者 虑 “gd 闭 一 个 方法 改 起 来 岛 担 小 一 点 ”， 从 这 点 来 看 还 是 第 
一 种 方法 比较 好 。 
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用 这 个 方法 遍历 的 时 候 可 能 会 出 现 无 效 日 期 ,因此 需要 准确 排除 这 
些 日 期 。 使 用 Ruby 时 ， 如 果 有 错误 抛 出 ， 只 需要 调用 rescue 就 可 以 捕 
获 异 常 。 其 他 语言 也 可 以 利用 捕获 异常 来 简化 逻辑 ， 可 以 多 灵活 运用 。 

即使 采用 同一 种 方法 ， 只 要 稍微 花 点 工夫 优化 , 处 理 时 间 就 能 大 幅 
度 缩 短 。 编 程 的 时 候 务 必要 兼顾 程序 可 读 性 和 处 理 效 率 。 


19660713 
19660905 


19770217 
19950617 
20020505 
20130201 


© Column 让 


2036 年 问题 和 2038 年 问题 


大 家 都 还 记得 “2000 年 问题 ” 吧 ? 因为 之 前 常用 两 位 数字 表示 年 
份 ， 所 以 人 们 认为 当 2000 年 来 临时 ,根据 实现 逻辑 不 同 ， 程序 会 出 现 
各 种 各 样 的 问题 。 比 如 年 份 的 顺序 会 发 生 错乱 ， 或 者 逻辑 处 理 出 错 其 
至 直接 终止 运行 等 。 不 过 因为 事前 作出 了 充分 准备 ， 所 以 并 没有 形成 
大 规模 的 混乱 。 

有 人 说 ,就 计算 机 而 言 ， 下 一 个 日 期 处 理 问题 将 发 生 在 2036 年 和 
2038 年。 2036 年 问题 的 起 因 是 有 些 NTPU 协 议 的 时 间 格 式 是 以 1900 年 
1 月 1 日 为 起 点 ,用 32 位 的 二 进 制 数 表 示 的 。2038 年 问题 的 起 因 则 是 
C 语言 等 用 32 位 的 二 进 制 数 来 表示 以 1970 年 1 月 1 日 为 起 点 的 时 间 。 

这 些 问题 有 一 个 解决 方法 ， 就 是 不 用 32 位 ， 而 用 64 位 二 进 制 数 
来 表示 日 期 。 虽 然 距 离 这 两 个 问题 出 现 还 有 不 少时 间 ， 但 是 作为 开发 
者 还 是 应 该 做 到 心中 有 数 ， 未 雨 绸 织 。 


中 NTP 是 网 络 时 间 协 议 ( Network Time Protocol )， 这 是 用 来 同步 网 络 中 各 台 
计算 机 的 时 间 的 协议 。 一 一 编者 注 
028 | 第 1 章 入 门 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


. EE IE 2055 
08 优秀 的 扫地 机 器 人 
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现在 有 很 多 制造 商都 在 卖 扫地 机 器 人 ， 它 非常 有 用 ， 能 为 忙碌 的 我 
们 分 担 家 务 负 担 。 不 过 我 们 也 很 难 理解 为 什么 扫地 机 器 人 有 时 候 会 反复 
清扫 某 一 个 地 方 。 

假设 有 一 款 不 会 反复 清扫 同一 个 地 方 的 机 器 人 ， 它 只 能 前 后 左右 移 
动 。 举 个 例子 ， 如 果 第 1 次 向 后 移动 ， 那 么 连续 移动 3 次 时 ， 就 会 有 以 
下 9 种 情况 〈E 国 )。 又 因为 第 1 次 移动 可 以 是 前 后 左右 4 种 情况 ， 所 以 
移动 3 次 时 全 部 路 径 有 9 x4 = 36 种 。 


※ 最 初 的 位 置 用 0 表示 ， 其 后 的 移动 位 置 用 数字 表示 。 


[ 国 辐 移动 路 径 示例 


求 这 个 机 器 人 移动 12 次 时 ， 有 多 少 种 移动 路 径 ? 


景 初 3 况 曲 移 动 方向 都 很 自由 ， 从 第 4 况 开 始 ， 
动 了 。 


有 些 方向 就 不 能 移 
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用 坐标 (0, 0) 表示 最 初 的 位 置 。 从 这 个 原点 开始 ， 避 开 已 经 走 过 的 
坐标 ,使 机 器 人 前 进 。 用 深度 优先 搜索 就 可 以 实现 逻辑 ， 如 代码 清单 
08.01 所 示 。 


代码 清单 08 .01 ( q08_01.rb ) 


N= 12 


def move (1og) 
# 包含 最 初 位 置 ， 一 共 搜 索 N + 1 次 


returnn te lionsLze = No 

emee=0 

# 前 后 左右 移动 

[LO oo eacnylel 


ncexteoss = oo oe oo oc aI 
# 如 果 前 方 是 没有 搜索 过 的 点 ， 则 可 以 前 进 
fllog.include? (next pos) then 

cnt += move(log + [next pos]) 
end 


puts movel( (No, ol 


计算 下 一 个 位 置 时 用 曲 log[ 一 1] 是 从 数组 景 后 取 值 的 童 里 0o3? 


是 的 。 用 数组 来 表示 路 径 时 ， 实 现 起 来 相当 漳 单 。 


324932 种 
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EE ETT 
De 落 单 的 男女 
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人 们 聚集 在 某 个 活动 会 场 上 ， 根 据 到 达 会 场 的 顺序 排 成 一 排 等 待 入 


场 。 假 设 你 是 活动 的 主办 

人 员 ， 想 把 人 们 从 队列 的 站 站 站 

某 个 位 置 分 成 两 组 。 
你 想 要 让 分 开 的 两 组 - 

里 每 一 组 的 男女 人 数 都 均 站 日 

等 ， 但 如 果 到 场 顺序 不 对 ， 

可 能 出 现 无 论 怎 么 分 ， 两 < 

组 都 不 能 男女 均等 的 情况 。 站 站 
举 个 例子 ， 有 3 位 男 


性 、3 位 女性 以 “ 男 男 女 男 


女 女 ”的 顺序 到 场 ， 如 站 站 总 
IE 四 所 示 ， 无 论 从 队列 的 电 
那个 位 置 分 开 ， 两 组 的 男 二 

女人 数 都 不 均等 。 但 如 果 全 
到 场 顺 序 为 “男男女女 男 " 站 , 日 加 
女 ”， 那 么 只 需要 在 第 4 个 出 | | 


人 处 分 组 就 可 以 令 分 开 的 男女 人 数 无 法 均等 的 示例 
两 组 男女 人 数 均等 了 。 


求 男性 20 人 、 女 性 10 人 的 情况 下 ， 有 多 少 种 到 场 顺序 会 导致 无 论 怎么 分 组 
都 没 法 实现 两 组 男女 人 数 均等 ? 


nt 
Hs 
As 


杷 男性 和 女性 按 顺 序 排列 ， 排 袭 男 女人 数 均 尾 的 情况 。 
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用 二 维 表格 来 表示 男女 到 场 的 顺序 有 助 于 我 们 理解 。 这 里 假设 向 横 
轴 方 向 移动 表示 男性 到 场 ， 向 纵 轴 方向 移动 表示 女性 到 场 ， 那 么 到 场 顺 
序 可 以 表示 为 一 条 路 径 。 因 为 求 的 是 人 数 不 均 等 的 情况 ， 所 以 要 把 男女 
人 数 相等 的 情况 先 排除 掉 ， 用 图 表示 的 话 则 如 医 目 所 示 。 


※ 国 不计 入 


CD 
心 
ol 
O) 


7 8 9 .101112131415 16 17 18 19 20 


一 和 


把 到 场 顺序 等 价 于 路 径 


只 午 排 除 医 加 里 这 两 种 路 径 即 可 ， 一 种 明 从 左下 向 出 发 会 使 男女 人 
数 相 等 网 路 径 , 男 一 种 是 从 右上 肖 出 发 会 使 男女 人 数 相 竺 的 路 径 。 关 
键 就 在 右上 和 角 那 部 分 吧 ? 


为 使 两 组 男女 人 数 都 不 均等 ,只 需要 求 到 达 右 上 角 加 粗 的 两 个 方 格 
的 路 径 , 并 且 统 计 路 径 个 数 就 可 以 了 。 从 图 表 上 看 , 也 就 是 “ 求 从 左下 
角 出 发 ， 到 达 右 上 角 两 个 方 格 的 路 径 有 几 条 ”。 
用 Ruby 可 以 实现 该 逻辑 ， 代 码 如 代码 清单 09.01 所 示 。 
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代码 清单 09.01 (q09 01.rb ) 


7 
boy ol Dov to I oe 
ary = Array.new(boy * girl){0} 
aryl[l0] = 1 
gimeslel 
boy.times{|b| 
Ee nen 
让 是 CS 三 二 SEE 
让 证 De 三 
mgl 


} 


} 


Buesyarsy le 2a yl ev 


为 什么 对 男生 和 女生 人 数 分 别 加 1 呢 ? 


PR 因为 是 从 0 个 人 开始 计数 网 。20 个 人 的 时 候 , 人 O 人 到 20 人 共 21 种 
Ne 情况 ;10 个 人 的 时 候 则 是 11 种 情况 。 景 后 统计 部 分 可 以 从 数组 的 右 
A 有 Hc，、| 边 数 。 在 Ruby 中 ,“-1” 表示 数组 未 尾 。 


同样 的 逻辑 用 JavaScript 实现 时 ， 可 以 用 多 维 数组 描述 ( 代码 清单 
09.02 )。 


代码 清单 09.02 (gq09 02.js ) 


Wa ovy = 20 

ee vol = Og 

Boy r= 

Gel 3 

Varary = New Array (girl), 

fe a 0 


ary[i] = new Array (boy); 
Een(vae 0 or 
Sy 
} 
} 
Sueyallon oul = 


Ec ET 下 


三 二 0 i++){ 
Eora( var es 


OF 3 < I ee 
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Ee (ey 


i {TS ON 
ate yl 
| 
Ee {> 0 
a | = a 1 
} 
} 
b 
} 


站 GE 有 


2417416 种 


© Column hh、 


最 短路 径 问 题 的 解法 
本 题 使 用 了 路 径 的 思路 ， 这 种 思路 常常 用 在 最 短路 径 问题 上 ， 也 就 
是 假设 存在 医 回 所 示 的 方 格 ,“ 求 从 A 到 B 的 最 短路 径 有 几 条 ”的 问题 。 


B B 
1 区 | 区 | 下 


1 3 Ss 


1 下 3 4 加 


A PAD 1 1 1 
求 从 左下 出 发 到 达 终 点 的 路 径 数 


横向 4 步 、 纵 向 3 步 地 移动 也 就 是 “7 步 中 有 4 步 为 横向 移动 ”， 
数学 上 就 是 7C4， 计 算 可 得 35 种 情况 。 本 题 用 的 是 通过 反复 统计 从 最 
左 列 和 最 下 列 到 达 各 个 交叉 点 的 情况 ， 得 到 最 终 解 的 方法 。 对 于 复杂 
图 形 而 言 ， 这 是 一 种 行 之 有 效 的 方法 。 
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ED ET 
10” 轮 盘 的 最 大 值 


ppIIIIIII IIIII II I I I II II I I I II I I II I II II I II I II II I III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


轮 盘 游戏 被 称 为 “赌场 女王 ”。 庄 家 在 转动 的 轮 盘 中 投入 滚珠 ， 挑 
战 者 的 神经 跟随 滚珠 ， 滚 珠 落 入 押 注 数字 的 那 一 刻 ， 一 本 千金 的 迷 幻 梦 
境 在 心头 挥 之 不 去 。 

流传 较 广 的 轮 盘 数字 排 布 和 设计 有 “欧式 规则 ”和 “美式 规则 ”两 
种 。 下 面 我 们 要 找 出 在 这 些 规则 下 ,“ 连 续 n 个 数字 的 和 ”最 大 的 位 置 。 

举 个 例子 ， 当 n = 3 时 ,按照 欧式 规则 得 到 的 和 最 大 的 组 合 是 36， 
11, 30 这 个 组 合 ， 和 为 77; 而 美式 规则 
下 则 是 24, 36， 13 这 个 组 合 ， 得 到 的 和 为 
73 ( BD )。 


欧式 规则 

0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6， 
27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 
16; 33, 1;20; 14,.31,9; 22, 18,29; 7 
28, 12, 35, 3; .26 


数字 的 排 布 和 轮 盘 游戏 示 
意图 


美式 规则 
0, 28;, 9,26, .30, 11; 7,.20; 32, 17, 5; 22; 34, 15; 3, 24; 36; 13, 1 00, 27; 10, 
25; 29;.12,:8; 19, 31; 18;.6; 21; 33, 16; 4,;.23;.33; 14,2 


当 2 < n < 36 时 ， 求 连续 n 个 数 之 和 最 大 的 情况 ， 并 找 出 满足 条 件 “ 欧 式 
规则 下 的 和 小 于 美式 规则 下 的 和 ”的 n 的 个 数 。 


nt 
i A 
和 


因为 转盘 是 圆 形 曲 ， 所 以 如 果 用 数组 表示 ， 要 注意 访问 购 元 素 下 柠 。 
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最 易于 理解 的 解法 是 按 顺序 求 连续 数字 之 和 。 把 轮 盘 上 的 数字 存储 
在 数组 里 ， 每 次 把 开始 位 置 往 后 移动 1， 从 数组 里 读 出 n 个 连续 的 数字 


分 别 求 出 来 欧式 规则 和 美式 规则 下 的 最 大 的 和 ， 然 后 比较 。 用 
Ruby 实现 逻辑 时 ， 代 码 如 代码 清单 10.01 所 示 。 


ans 


加 


cnt = 


} 


代码 清单 10 . 


european 


american 


9 


0 


ES 


第 1 


= 2 


L100 
2 /A 2 Sp 2 2 


= L028 


3 24 36 L311. QO 277 40 25 29 T2798. 19, 31, 


LT8r 6 


def sumlmax(roulet teen 


0 


roulette.size.times{|i| 


= 0 


if i + n <= roulette.size then 
# 不 包含 数组 两 端 元 素 的 情况 


tmp = roulettel[i, nl].inject(:+) 


eee 
# 包含 数组 两 端 元 素 的 情况 
cmp = ouleteelor (i rm coulette sel neot (ey 
tmp += rouletteli..=1l| ,inject(:+) 

end 

ans = [ans, tmp] .max 


(Ce ec 
ent += 1 if sum max(european, 1) < sum max(american, 1) 


章 入 门 篇 


01 (alo_ 01.rb) 


TL 2 I 
S23 UU Sr od 160 3 1 207 1409 31 9 


9 26 307 Ll 7. 207 32 T7177 Sy 22 34 L195r 
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轮 盘 是 圆 形 的 ， 因 此 超出 数组 景 右 端 时 ， 超 出 部 分 就 从 数组 景 左 庙 
说 取 ， 是 这 样 吧 ? 


说 得 很 对 , 这 个 实现 非常 简单 易 异 。 前 面 代码 已 经 鹃 用 3, 但 n 变 大 
之 后 处 理 时 间 会 逐渐 变 长 。 这 种 时 候 可 以 用 类 似 尺 蝶 虫 拘 方式 ， 即 
开始 位 置 和 终止 位 置 同时 蠕动 曲 方 式 优化 程序 性 能 。 


一 开始 从 左 往 右 计算 nn 个 数字 的 和 ,然后 每 往 右 移动 一 位 , 用 这 个 
和 数 减 去 最 左边 的 数字 ,同时 加 上 右边 新 增 的 数字 ， 就 得 到 了 新 的 和 
数 。 用 这 种 方法 可 以 减少 求 和 计算 的 次 数 (代码 清单 10.02 )。 


代码 清单 10 .02 (ql0_02.rb ) 


europeane = 0 2 lS lO 920 34 6 2790 11067 
nb eNO ep el Oe Ss sp Or ee la Oe bl eal Sy 
2 e200 22090 15057 3 2 

amenaean = 3 O26 3002 
S724 S36 L937 LL, 00, 27. 10. 25, 297 "12, 87 197 31 
TeP 62133 L164 20 3 lA.2| 


der summaz(rouletter ny 
ansD = roulettelo ml net (se) 
Enmpe eans 
roulette.size.times{|i| 
tmp += roulette[(i + n) %$ roulette.sizel] 


Emp onleeeel 
ans.= [ans, tmpj .max 
b 
ans 
enmel 
cme 


(ER 本 San 人 ia 
cnt += 1 if sum max(european, 1) < sum max(american, 1) 


Duts ene 
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下 一 看 好 像 循 环 次 数 并 没有 减少 ， 那 不 同 的 地 方 在 哪里 呢 ? 


如 果 用 其 他 


Ruby 是 用 inject 语 法 实现 的 ， 和 看 起 来 好 像 没有 循环 。 
语言 实现 ， 就 可 以 明显 看 到 循环 次 数 减少 3。 


越 是 这 样 写 得 很 简单 的 语 言 ， 越 村 理解 代码 背后 的 运行 原理 。 
inject 在 循环 体内 部 还 是 外 部 ， 这 两 种 情况 下 的 处 理 速 度 差 异 非 
常 大 。 


代码 行 数 越 多 越 好 吗 


在 真实 的 软件 开发 工程 里 ， 现 在 还 有 LOC (Line Of Code， 代 码 
行 ) 的 提 法 ,也 就 是 根据 代码 行 数 来 预 估 或 者 结算 开发 费用 。 当 然 , 要 
累积 一 定 规模 的 代码 量 ， 就 需要 投入 一 定量 的 时 间 ， 从 而 也 就 需要 花 
费 一 定 的 开发 彝 用 @ 

这 种 做 法 还 有 一 种 好 处 ， 那 就 是 谁 都 可 以 很 方便 地 计量 ， 并 且 给 
出 具体 数字 , 直观 而 易于 交涉 。 不 过 事实 上 , 1 行 代码 可 以 完成 的 处 理 
也 可 以 轻易 地 写成 10 行 其 至 更 多 行 。 

如 果 这 个 做 法 行 得 通 ， 那 软件 公司 的 营业 额 完全 可 以 用 代码 行 数 
来 计算 了 ， 但 实际 上 这 种 做 法 不 仅 催生 了 大 量 劣 质 无 用 的 代码 ， 更 为 
后 期 维护 带 来 灾难 。 当 然 ， 代 码 怎 么 算 ， 算 什么 也 很 有 考究 。 是 不 是 
计算 注释 条 数 呢 ? 每 行 代码 长 度 怎 么 规定 呢 ? 使 用 什么 编程 语言 呢 ? 
所 有 这 些 问题 都 会 因 程 序 员 的 不 同 而 千差万别 。 

我 觉得 作为 开发 者 ， 无 论 营 业 额 如 何 ， 都 应 该 怀 着 茹 旺 之 心 写 出 
恰当 的 代码 。 
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“优化 处 理 速度 ”这 个 说 法 相当 模 棚 。 实 际 上 ， 处 理 速度 有 各 种 各 样 
的 考量 。 比 方 说 “执行 速度 ”是 程序 
用 软件 时 感受 到 的 则 是 “体感 速度 "， 包 含 通信 、 展 示 等 步 又 的 则 是 “ 显 


示 速 度 ” 等 。 


性 价 比 意识 


这 内 部 代码 的 运行 速度 ， 而 用 户 实际 使 


还 有 人 会 争论 “代码 中 使 用 for 更 快 还 是 while 更 快 "。 不 过 ,综合 最 


近 的 计算 机 环境 ,我 们 可 以 直言 


可 以 得 到 更 大 幅度 的 效率 优化 。 
举 个 例子 ，0.1 秒 的 处 理 优化 到 0.05 秒 就 是 2 倍 的 效率 提升 。 不 过 ， 
这 种 提升 大 多 数 人 应 该 都 注意 不 到 。 然 而 ， 如 果 把 原本 需要 10 小 时 的 处 


理 优化 到 5 小 时 ， 效 果 就 会 很 明显 。 


在 实际 开发 中 ， 


态 ， 那 么 可 能 就 不 会 觉得 


“并 没有 什么 差别 ”， 因 为 关注 其 他 方面 


“ 读 取 大 文件 时 显示 进度 条 ”这 样 改善 交互 的 对 策 ， 
比 起 细节 的 改善 ， 对 用 户 体感 速度 的 影响 更 大 。 如 果 用 户 因 为 不 能 获知 当 
前 状态 而 不 安 ， 感觉 上 的 处 理 时 间 会 更 长 ; 而 如 果 能 知道 当前 的 处 理 状 


处 理 很 慢 了 。 


升级 硬件 使 之 更 加 高 速 也 是 一 个 办 法 。 最 近 ， 连 衣 入 式 系统 领域 也 能 


使 用 廉价 而 高 速 的 硬件 了 。 


能 力 翻 倍 ， 性 能 方面 


i 就 不 会 有 问题 


程序 员 作为 技术 人 员 ， 


并 行 计算 环境 也 逐渐 完备 ， 很 多 时 候 只 要 处 理 


往往 会 追求 极致 的 处 理 速度 。 这 不 是 一 件 


坏事 ,不 过 一 定 要 综合 高 速 化 所 带 来 的 时 间 消 耗 和 最 终 效果 等 方面 进行 


权衡 。 
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Q 11 ， 斐 波 那 契 数列 
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斐 波 那 问 数列 因 古 希腊 建筑 《 伯 特 农 神殿 》 和 有 雕塑 《 米 罗 的 维 纳 

斯 》 ee “黄金 分 割 ” 而 闻名 ， 有 许多 有 趣 的 数学 特性 。 
斐 波 那 契 数列 由 两 个 1 开端 ， 其 后 的 每 一 位 数字 都 是 前 两 位 数字 之 
。 辟 如 1 和 1 的 和 为 2, 1 和 2 的 和 为 3, 2 和 3 的 和 为 5, 3 和 5 的 

和 为 8…… 一 直 这 样 继续 计算 下 去 ， 就 得 到 下 面 这 样 的 数列 。 
1, 2, 3, 5, 8, 13, 21, 34, 55, 89, . 斐 波 那 契 数列 的 数字 

个 数列 就 是 “ 斐 波 那 契 数列 ”。 计算 这 相 除 运算 

0 邻 两 个 数 的 商 值 ， ee 11 = 1.00000 


示 的 乡 于 果 。 可 以 看 到 ， 商 值 最 慢 地 趋 近 2/1 = 2.00000 
1.618。 这 就 是 有 名 的 由 来 。 3/2 = 1.50000 
5/3 = 1.66667 
问题 8/5 = 1.60000 
13/8 = 1.62500 


如 下 例 所 示 , 用 斐 波 那 契 数 列 中 的 每 个 数 除 以 其 21/13 = 1.61538 
数位 上 所 有 数字 之 和 。 请 继续 例 中 的 计算 , 求 出 后 续 34/21 = 1.61905 


5 个 最 小 的 能 整除 的 数 。 55/34 = 1.61765 
89/55 = 1.61818 
例 ) 2 一 2:2 
3 一 3:3 
5 一 5:5 
8 一 8:8 
21 一 21:3 …2 十 1=3， 因 而 除 以 3 
144 一 144:9 … 1 十 4 十 4=9， 因 而 除 以 9 


如 果 能 金 分 出 各 个 数位 上 的 值 ， 后 面 曲 处理 就 简单 3 吧 ? 


| 二 \ 
mn 
HS 一 一 
中 cv 非 波 那 契 数列 计算 下 去 ， 很 快 数值 就 会 变 得 非常 大 ， 要 注意 位 数 。 
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在 斐 波 那 契 数 列 中 ， 每 一 个 数值 都 是 前 两 个 数值 之 和 。 因 此 我 们 可 
以 用 递 推 公式 ， 把 求 第 个 值 封装 成 如 下 函数 ， 这 里 先 用 JavaScript 实 
现 (代码 清单 11.01 )。 


二 


代码 清单 11.01 (ql1 01.js) 


ES ED 


二 人 全 ©) || (== 

return 1; 
} else { 

TetUen Ell(n 2 FID(n 1 
} 


原来 如 此 ， 用 递归 实现 起 来 就 很 痪 单 3 呢 。 


不 过 ,站 变 大 购 时 候 程 序 执 行 会 变 慢 ， 这 一 点 比较 难 办 。 


那 这 样 行 不 行 ? 像 代 码 清 单 11.02 这 样 把 已 经 计算 过 曲 值 存 到 内 存 
中 ， 下 次 就 不 再 计算 了 。 


代码 清单 11.02 ( ql1 02.js ) 


Var memo = new Array () 
EGG ET 于 


if (memo [n] == null){ 
1E (ms 人 0 | = 二 WH 
memoelal = 
} else { 
memelnye = Eun 2 (mn 
} 
} 


return memol[ln]; 


i 


”的 方法 啊 。 这 种 方法 很 有 用 ， 不 过 单 是 这 样 ; 


这 个 问题 ， 还 要 考虑 数值 的 上 限 。 
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处 理 大 数 的 时 候 ， 一 定 要 意识 到 数值 溢出 的 可 能 性 。JavaScript 标 
准 只 能 处 理 “+2x53” 范 围 的 数值 ， 超 出 范围 就 无 法 处 理 。Excel 和 及 
语言 处 理 的 数字 位 数 也 仅 限 于 15 位 。 

这 个 问题 的 最 后 答案 已 经 超出 了 这 个 范 目 
的 地 方 在 于 没有 考虑 到 数值 溢出 的 情况 。 


EN 
yp 


Cy 


。 前 面 的 处 理 有 个 很 麻烦 


如 果 用 Ruby, 我 们 就 能 处 理 位 数 很 大 的 数值 了 , 所 以 我 用 Ruby 重 
写 3 一 下 (代码 清单 11.03》。 


代码 清单 11.03 ( ql1 03.rpb ) 
@memo = {} 
Qe ef 
return @memo[n] if @memo.has key? (n) 
Ten 
@memo[n] = 1 
else 
GaWala Eve(n nn 
end 
end 


的 确 , 用 Ruby 可 以 解决 位 数 多 则 数字 曲 处 理 间 题 。 不 过 还 有 不 用 首 


归 揭 方法 ， 璧 如 代码 清单 11.04 这 样 的 实现。 


清单 11.04 (aql1 04.rb ) 
a = b= 1 
count = 0 
Waiektecuao de 
SG=a+t+b 
# 分 开 各 个 数位 进行 求 和 
sum = 0 
cutoNMs spuit(//) eacen (lell sum r= ce EO} 
E(um 0 em 
# 输出 能 整除 的 情况 
puts c 
Sounee = 
enal 
a = br 
ene 
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吧 ! 这 么 快 ! 明 间 就 求 出 答案 了 。 


关注 性 能 很 重要 ,不 过 也 要 考虑 诸如 “使 用 的 语言 可 以 处 理 多 少 位 
数 的 数值 ”“ 得 到 的 结果 是 不 是 合适 的 ”这 样 的 问题 。 


2584 
14930352 


86267571272 
498454011879264 
160500643816367088 


© Column DB 


身边 的 斐 波 那 契 数 列 


斐 波 那 契 数列 不 仅仅 存在 于 数学 和 算法 的 世界 ， 自 然 界 中 也 有 很 

多 符合 黄金 分 割 的 植物 , 设计 领域 也 盛传 Apple 公司 的 Logo 就 是 黄金 
分 割 的 经 典 设计 。 

股市 上 也 有 “黄金 分 割 率 ”， 也 就 是 Fibonacci Ratio 这 种 分 析 股 价 
的 方法 。 比 如 ， 分 析 股价 历史 时 把 时 间 分 为 13 周 、21 周 、34 周 、55 
周 、89 周 这 样 的 区 间 ; 分 析 股 价 涨 跌 的 时 候 ， 按 照 1 和 0.618 这 样 的 
比例 范围 来 分 析 等 。 

大 家 也 可 以 试 试看 平时 能 不 能 把 斐 波 那 契 数 列 作为 参考 ， 想 来 会 
很 有 趣 。 顺 便 提 一 句 , 我 登记 结婚 的 日 子 是 13 上 日， 举办 婚礼 则 是 在 21 
日， 总 觉得 自己 和 斐 波 那 契 数列 有 点 儿 缘 分 呢 。 
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平方 根 数字 


pIIIIIIIIIIII II I II II I IIII I II I I II I II II I II I I II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


我 们 初中 的 时 候 就 学 过 平方 根 ， 说 起 “ 根 ” 大 家 都 应 该 有 印象 。 举 
个 例子 ，2 的 平方 根 就 是 + 1.414213562373095048… 这 个 无 限 小 数 。 

不 只 是 Excel， 大 部 分 的 编程 语言 都 内 置 了 求 平方 根 的 函数 ,使 用 
起 来 非常 简单 。 


求 在 计算 平方 根 的 时 候 , 最 早 让 0~9 的 数字 全 部 出 现 的 最 小 整数 。 注 意 这 里 
只 求 平方 根 为 正 数 的 情况 ， 并 且 请 分 别 求 包含 整数 部 分 的 情况 和 只 看 小 数 部 分 的 
情况 。 


Q EE PI 
12 | 


例 ) 2 的 平方 根 : 1.414213562373095048… 
(0~9 全 部 出 现 需要 19 位 ) 


解答 这 个 问题 ， 就 要 关注 如 何 杷 平方 根 各 个 数位 上 曲 数 取出 来 。 


关键 在 于 时 音 识 到 小 数 曲 “有 效 数字 ”。 


可 以 处 理 小 数 曲 是 float 类 型 和 gdouble 类 型 。 


这 个 问题 只 计算 平方 根 , 可 以 多 铬 “精度 毛 失 ”(loss of significance》 
问题 。 


※ 所 谓 精 度 丢失 , 指 的 是 使 用 浮 点 运算 执行 计算 结果 接近 0 的 加 减 运算 时 , 有 效 数字 的 位 数 特 别 少 
的 情况 。 
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IEEE 754 标准 常用 的 浮 点 数 有 “ 单 精度 浮 点 数 ” 和 “ 双 精 度 浮 点 
数 "。 其 中 ,， 单 精度 浮 点 数 中 的 32 位 包括 符号 位 1 位 、 阶 码 8 位、 尾数 


32 位 。 这 样 ， 数 字 就 可 用 通过 下 面 这 个 


(- 11) 符 号 位 X 2 阶 码 -127 x .尾数 


1 尾数 ”是 指 什么 呆 ? 


个 式 子 来 表示 。 


杷 首位 设置 为 1 是 为 了 用 较 少 的 位 数 表 示 尽 可 能 多 的 数字 。 固 息 首 位 
后 ， 就 可 以 用 23 位 来 表示 24 位 数字 3。 也 就 是 说 ， 符 号 位 表示 正 
员 ,“1. 尾 数 ”表示 有 效 数 位 ， 景 后 2 队友 -127 表 示 位 数 。 


“2.5” 表 示 为 二 进 币 上 时， 曾 


吏 数 部 分 为 10， 小 数 部 分 为 0.1， 因 此 是 


“10.1”。 控 照 前 面 的 规则 , 把 这 个 数字 右 移 一 位 , 则 尾数 为 “1.01”， 
阶 码 是 “下 O 


这 幢 一 来 ， 尾 数 部 分 


> 开头 的 “1 ”就 可 以 不 用 存储 了 。 


阶 码 如 果 不 加 上 127， 就 会 是 负数 ， 所 以 要 表示 2.5 时 ， 阶 码 的 值 
需要 是 128 的 二 进 制 数 “10000000”。 也 就 是 说 ,2.5 可 以 表示 为 “01000 


000001000000000000000000000”。 


这 样 的 设计 可 以 实现 用 23 位 (实际 上 是 24 位) 数 来 表示 有 效 
进 制 的 23 位 数 ， 所 以 如 果 用 十 进 制 数 表示 ， 则 为 
log10 (223 ) = 6.92 位 数 ， 而 实际 上 24 位 可 用 ， 所 以 是 log10 (224 ) =7.225 
位 数 。 也 就 是 说 ， 用 十 进 制 数 表示 时 只 能 正确 表示 6 到 7 位 有 效 数字 。 
同 理 可 知 ， 双 精度 浮 点 数 小 数 点 后 最 多 能 正确 表示 15 位 有 效 数字 。 
由 此 可 见 ， 用 “ 单 精度 浮 点 数 ” 并 不 能 解决 这 里 的 问题 ， 必 须 使 用 “ 双 


数位 。 因 为 是 二 


精度 浮 点 数 ”。 
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接 下 来 就 是 如 何 转 操 成 字符 串 的 问题 了 ……… 


(cr) 


程 语言 不 同 ， 把 数值 转换 成 字符 串 的 方法 也 就 不 相同 。 如 果 用 C 
语言 的 snprintf 函数 等 实现 ， 问 题 就 变 成 了 “如 何 正 确 地 指定 函数 参数 
格式 ”; 如 果 用 “每 次 乘 以 10 再 取 整 数 部 分 ”这 样 的 方法 ， 又 有 可 能 得 
不 到 正确 的 结果 。 

脚本 语言 Ruby 、Python 等 可 以 用 下 列 方法 把 数值 转换 成 字符 串 。 


EE 


e Ruby 语言 


1.2345.to s 
0.000012345.to s 


e Python 语言 


StE(L2343) 
str(0.000012345) 


无 论 是 Ruby 语言 还 是 Python 语言 ， 我 们 通过 第 一 句 代 码 都 可 以 得 到 
“1.2345”， 但 通过 第 二 句 代 码 则 会 得 到 “1.23e-0.5” 或 者 “1.2345e-0.5” 
这 样 的 结果 。 如 果 我 们 意识 到 了 这 一 点 ， 那 么 只 要 判断 后 认为 “这 不 会 
影响 到 本 次 的 问题 ”就 没有 问题 。 但 如 果 没 有 意识 到 这 一 点 ， 很 可 能 会 
得 出 预想 不 到 的 结果 。 

Ruby 可 以 通过 以 下 两 种 用 法 防止 出 现 这 种 不 确定 的 状况 。 


SpaeE SRORTOE OO0OOOL2345) 


| LORTOE SORO0000L2245 
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如 果 用 Ruby， 本 次 的 问题 可 以 像 代 码 清单 12.01 这 样 解决 。 


代码 清单 12.01 ( Gq1l2_01.rb ) 


# 含有 整数 部 分 的 情况 


1 = 


while i += 1 
# 去 除 小 数 点 ， 从 左 往 右 取 10 个 字符 
Sills (ON Or Ma hse uO 
# 如 果 包 含 不 重复 的 10 个 字符 ， 则 结束 循环 
loreakssE St pu uneno hn = 
engl 
Dusse 


# 只 看 小 数 部 分 的 情况 
i 
while i += 1 
# 以 小 数 点 为 界 ， 只 取 小 数 部 分 
St = (OO MaEn se ntl 
# 如 果 小 数 部 分 包含 不 重复 的 10 个 字符 ， 则 结束 循环 
brealkene St ol umolenoeh === 
engd 
Dusse 


Ruby 里 有 很 多 sub、split 和 ouniq 这 翌 非 常 方 俐 则 方法 呢 。 


用 这 样 方便 击 单 的 语言 自然 可 以 ， 不 过 和 更 希望 大 家 用 C 语 言 字 来 试 


包含 整数 部 分 时 : 1362 
( V1362 = 36.90528417 ) 


不 包含 整数 部 分 ， 即 只 看 小 数 部 分 时 : 143 
( V143 = 11.9582607431 ) 
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. EE HET 
13 。 有 多 少 种 满足 字母 算式 的 解法 
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所 谓 字母 算式 ， 就 是 用 字母 表示 的 算式 ， 规 则 是 相同 字母 对 应 相同 
数字 ,不同 字母 对 应 不 同 数 字 ， 并 且 第 一 位 字母 的 对 应 数字 不 能 是 0 

壁 如 给 定 算式 We xlove = CodeIQ， 则 可 以 对 应 填 上 下 面 这 些 数字 
以 使 之 成 立 。 


We= ee=4l=30=8V=s0C=2d=1|l=90Q0=6 


这 样 一 来 ， 我 们 就 能 得 到 74 x 3804 = 281496 这 样 的 等 式 。 使 前 面 
那个 字母 算式 成 立 的 解法 只 有 这 一 种 。 


求 使 下 面 这 个 字母 算式 成 立 的 解法 有 多 少 种 ? 


READ + WRITE + TALK = SKILL 


似乎 用 穷 举 的 方法 就 可 以 …… 


是 弗 ， 穷 举 的 确 可 以 找到 结论 。 不 过 遇 到 这 
先 好 好 整理 思路 再 下 手 。 


文 样 的 问题 时 ， 景 好 还 是 


Re 
题 也 越 来 越 多 。 不 过 编写 程序 景 好 在 可 复 用 性 、 计 算 速 度 字 方面 多 
些 工夫 。 


Q13 ”有 多 少 种 满 


fu 


字母 算式 的 解法 | 049 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


思路 
问题 限制 是 ， 相 同 字 母 对 应 相同 数字 ， 不 同 字 母 对 应 不 同 数字 ， 因 
此 如 何 分 配 0~9 这 几 个 数字 就 是 问题 的 关键 。 这 道 题 使 用 到 的 字母 是 
R_、E、A、D、W、LT、L、K、S 这 10 个 ， 每 个 字母 对 应 一 个 数字 。 
最 直接 的 方法 就 是 按 顺 序 分 配 10 个 数字 ， 也 就 是 用 简单 穷 举 的 方 
法 。 用 Ruby 实现 时 ， 代 码 如 代码 清单 13.01 所 示 。 


代码 清单 13.01 (aq1l3_01.rb ) 


count = 0 
(Oo on permnutaton do em | 
Re 1if x == 0 Or Ww == 0 or t == 0 or SEE 0 


read = rr* 1000 +e* 100 +a*10+d 
write =w * 10000 + rr* 1000 +i* 100+t*10+e 
tol = 0000 a L000 
本 WO 和 
if read + write + talk == skill then 
count += 1 
puts "#{read} + #{write} + #{talk} = #{skill}" 
end 
end 
puts count 


也 就 是 说 ， 只 需要 注意 不 村 翅 党 1 位 设置 为 0， 系 则 下 的 就 是 简单 地 为 
每 个 字母 分 配 数 字 3。 


虽然 是 个 和 法 子 ， 但 足以 解决 本 况 提 问题， 得 到 正确 答案 “10”。 解 鉴 
ef Ae i ee eet 
这 就 算 不 上 是 合格 曲 业 务 代 码 3。 


曲 确 如 此 。 仅 仅 是 损 掉 一 个 用 到 的 单词 ， 这 个 程序 就 里 全 盘 推 多 
重 写 。 


衡量 好 算法 的 标准 有 很 多 ， 可 读 性 、 可 复 用 性 、 处 理 速度 、 可 维护 
性 等 。 满 足 所 有 标准 当然 最 好 ， 但 是 特定 场景 下 ， 也 可 能 需要 牺牲 其 中 
某 些 标准 。 对 于 这 次 的 问题 ， 如 果 追 求 可 复 用 性 ， 那 么 有 可 能 会 牺牲 处 
理 速度 。 反 过 来 ， 如 果 追 求 处 理 速度 ， 那 算法 就 无 法 处 理 其 他 输入 情况 。 
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前 面 的 代码 对 解决 本 题 而 言 ， 可 读 性 已 经 足够 。 即 便 代码 没有 添加 
注释 ， 其 处 理 内 容 也 一 目 了 然 。 不 过 ， 如 果 改 变 输 入 内 容 ， 那 么 就 需要 大 
量 修改 代码 。 举 个 例子 ， 如 果 用 这 个 代码 来 解决 之 前 提 及 的 We xlove = 
CodeIQ 这 个 算式 ， 那 么 几乎 所 有 代码 都 需要 改写 。 

这 里 我 们 尝试 实现 一 个 可 复 用 性 比较 强 的 算法 。 例 如 ， 下 面 这 个 示 
例 代码 就 可 以 应 对 各 种 不 同 的 输入 ( 代码 清单 13.02 )。 


代码 清单 13 .02 (ql3_02.rb ) 


expression = "READ+WRITE+TALK==SKILL" 
nums = expression.split(/[^a-zA-2]/) 
charnsn = noms om el ee 
head = nums.map{|num| num[0]} 


count = 0 
(0..9) .to a.permutation (chars.size) {|seq| 
SEE ER Ealse 
if Seq.include?'\(0) then 
TSBzZeroRDsse mead meludep (enarslsedq nde (ol 
end 
LE WE ee Ee ole 
e = expression.trl(chars.Join(), seq.:Join()) 
Eevaln(e nen 
Buts le 
eounee r= 
eg 
end 
} 


puts count 


寓 2 行 Split 函 数 拘 参数 是 什么 啊 ? 


是 “正则 表达 式 ”。 这 和 句 代码 的 作用 是 以 字母 以 外 的 字符 分 割 字符 串 。 


原来 如 此 。 那 第 13 行 就 是 翅 宇 母 蔡 损 成 数字 网 意思 吧 。 


昌 . 心 、 


试 了 -下 其 他 算式 ， 发 现 只 需要 改 审 1 行 就 足 驶 了 呢 。 
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壁 如 要 解答 本 题 中 的 示例 ， 就 只 需要 改 成 下 面 这 样 就 可 以 。 


expressionm = "We* Jove == CodeIOu 
还 能 处 理 像 下 面 这 样 带 括号 ， 甚 至 除法 的 算式 。 


expEessnon (ed Be 


虽然 处 理 速度 比较 慢 ， 但 用 现在 的 计算 机 大 概 30 秒 左右 就 能 得 到 


答案 。 
最 后 尝试 实现 一 个 处 理 速 度 比较 快 的 版 本 。 像 本 题 这 样 有 10 个 字 
母 的 情形 ， 一 共 要 穷 举 10! (10 的 阶乘 ) 种 情况 ， 稍 微 优化 一 下 应 该 能 
缩小 搜索 范围 。 

根据 问题 描述 的 条 件 来 看 ， 首 位 不 能 为 0， 因 此 可 以 排除 这 种 情况 。 
另外 ， 本 题 中 的 5 位 数 WRITE 和 SKILL 的 首位 数字 不 同 ， 因 此 从 第 4 
位 数 开始 有 进位 操作 。 由 于 这 里 会 进位 1 或 者 2， 所 以 需 满 足 W + 1 = 
S 或 者 W +2 = S。 

另外 ， 从 倒数 第 2 位 可 以 看 到 ，A + T + 工 = L。 这 里 ， 考 虑 到 从 最 
低位 进位 0 或 者 1 或 者 2， 所 以 需 满 足 推 新 A + T = 8 或 者 A+T=9 
或 者 A + T = 10。 

同样 地 , E + T+ A = I， 进 位 也 可 以 和 前 面 一 样 考虑 ， 即 会 有 0、 
1、2 这 三 种 情况 ， 那 么 同样 可 知 ,，E + A = 8 或 者 E + A = 9 或 者 E + 
A = 10。 

组 合 以 上 这 些 条 件 可 以 得 到 下 面 这 个 程序 (代码 清单 13.03 )。 


代码 清单 13.03 (qi3_03.rb ) 
Sounte eo 
(0 0 oermuGar on ed| 
(l(a ee 
((a+e== 8) || (a+€ == 9) || (a + € == 10)) &é& 
Ge 310== 1) ge 
Ga Ee LO d eR) L000 = | * Tl1) then 
(00 Eo le permutaclion( 
| 
5 (CE Ne OO) Se 0 Es 
((s == w+ 1) || (s == w + 2)) then 
ea ES O00 e000 0 dl 
write =w * 10000 + rr * 1000 + i* 100 +t*10+e 
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IE 
SLi = 00000 1 0 0 0 
if read + write + talk == skill then 
puts "Ht{read) eH(weicte} se 4#(Eeaney SH(sriLL)}n 
count += 1 
end 


end 


} 


puts count 


虽然 程序 变 复杂 了， 但 是 处 理 一 星 间 就 执行 完 3。 


这 个 程序 不 到 0.1 稍 就 可 以 得 出 答案 ， 不 过 并 不 能 用 在 其 他 算式 的 求 
解 上 呢 。 以 上 这 些 解法 没有 一 种 是 绝对 好 曲 , 要 学 会 分 时 间 和 场 显 选 
用 不 同 的 解决 方法 。 


也 要 注意 ， 如 果 程 序 变 得 过 于 复杂 ， 那 么 很 大 幅 率 会 增加 漏洞 ， 这 
是 一 个 难点 。 


10 种 


7092 + 47310 + 1986 = 56388 
7092 + 37510 + 1986 = 46588 
5094 + 75310 + 1962 = 82366 
5096 + 35710 + 1982 = 42788 
5180 + 65921 + 2843 = 73944 
5270 + 85132 + 3764 = 94166 
2543 + 72065 + 6491 = 81099 
1632 + 41976 + 7380 = 50988 
9728 + 19467 + 6205 = 35400 


4905 + 24689 + 8017 = 37611 
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程序 员 必 备 的 技能 


本 题 用 的 字母 算式 是 READ + WRITE + TALK = SKILL ( 读 上 + 
写 + 说 = 技能 )。 那 程序 员 必 备 的 技能 又 是 什么 呢 ? 显然 ,程序 员 要 读 
写 源 代码 ， 所 以 编程 语言 的 基础 知识 是 必需 的 。 面 试 的 时 候 常常 考察 
的 “交流 能 力 ” 等 也 可 能 很 必要 。 

虽然 本 书 讲 的 是 与 数学 相关 的 算法 趣 题 ， 但 在 实际 开发 中 ， 数 学 
的 应 用 不 会 特别 多 。 也 许 开发 游戏 的 程序 员 需 要 具备 坐标 、 旋 转 等 知 
识 ， 但 大 部 分 情况 下 都 有 很 方便 的 工具 库 可 以 应 对 。 

另外 ， 由 于 开发 的 工程 不 同 ， 需 要 的 技能 也 会 不 同 。 做 需求 定义 
的 时 候 ， 要 有 能 编写 易 懂 的 资料 的 能 力 ; 开发 测试 用 例 的 时 候 ， 又 需 
要 具备 测试 方法 等 技能 以 及 “直觉 ”。 

如 果 一 个 学 生 志 在 加 入 IT 行业 ， 他 可 能 会 去 考取 各 种 资格 证 书 。 
不 过 我 希望 你 们 不 要 只 学 习 编 程 本 身 。 

一 旦 进入 公司 , 投身 工作 之 后 便 会 发 现 ,“ 了 解 工作 内 容 ” 是 至 关 
重要 的 一 点 。 如 果 不 了 解 工作 内 容 , 当 要 把 承接 的 需求 转变 为 程序 时 ， 
开发 者 就 无 法 和 用 户 沟通 。 这 么 一 来 , 或 许 连 功能 需求 也 会 不 尽 明 了 。 
一 定 要 注意 一 点 ， 各 行 各 业 有 不 同 的 工作 内 容 ， 如 果 仅 仅 在 编程 上 下 
工夫 ， 很 可 能 会 成 为 “ 派 不 上 用 场 ” 的 程序 员 。 
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邮 


ED HEDS 
1 小 “世界 杯 参赛 国 的 国名 接龙 


pIIIIIIIIIIIII II I II II II I I I II I I II I II II I I I II II III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


FIFA 世界 杯 对 足球 爱好 者 而 言 是 四 年 一 度 的 盛事 。 下 面 我 们 拿 
2014 年 世界 杯 参赛 国 的 国名 做 个 词语 接龙 游戏 。 不 过 ， 这 里 用 的 不 是 中 
文 ， 而 是 英文 字母 (忽略 大 小 写 )。 

已 到 是 2014 年 FIFA 世界 杯 的 32 个 参赛 国 。 


2014 年 FIFA 世 界 杯 参 赛 国 


Brazil Croatia Mexico 
Cameroon Spain Netherlands 
Chile Australia Colombia 
Greece Cote d'Ivoire Japan 
Engang 
ltaly Switzerland Ecuador 
France Honduras Argentina 
Bosnia and Herzegovina Iran Nigeria 
Germany Portugal Ghana 


USA Belgium Algeria 


Russia Korea Republic 


举 个 例子 ， 如 果 像 下 面 这 样 ， 那 么 连续 3 个 国名 之 后 接龙 就 结束 了 
( 因为 没有 英文 名 称 以 D 开头 的 国家 )。 


“Japan ”一 “Netherlands” 一 “Switzerland” 


假设 每 个 国名 只 能 使 用 一 次 ， 求 能 连 得 最 长 的 顺序 ， 以 及 相应 的 国名 个 数 。 


首 字母 都 是 大 写 ， 而 末尾 的 字母 有 大 写 也 有 小 写 。 


全 部 统一 成 大 写 就 容易 处 理 3。 
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因为 每 个 国名 只 能 使 用 一 次 ， 所 以 如 何 标记 已 使 用 的 国名 就 是 问题 
的 关键 。 标 记 方法 有 不 少 ， 以 下 是 其 中 两 种 。 

。 使 用 后 加 上 标记 

。 使 用 后 直接 删除 


要 想 按 顺序 遍历 , 使 用 循环 也 可 以 实现 ,不 过 使 用 递归 , 通过 深度 
优先 搜索 的 方法 更 加 直观 、 简 单 。 


先 来 看 第 一 种 方法 “使 用 后 加 上 标记 ”。 用 Ruby 实现 时 ， 代 码 如 代 
码 清单 14.01 所 示 。 


代码 清单 14.01 (al4_01.rb) 


# 设置 一 个 保存 世界 杯 参赛 国 的 数组 


Seountry = Era eroablia uMexicoom uCoameroonu 
SPDan uNetherlandsu ene Atalau 
ueoleombian ereecen CotLe od Tvoren aaparm 
四 
vowitzerland uneuadoru Erances "Hondurasu, 
vArageneimnan uposmnialana Herzegovinan Tanmny 
"Nigeria", "Germany", "Portugal", "Ghana", 
SA el ler Rss 


"Korea Republic"| 
# 用 于 检查 该 国名 是 否 使 用 过 的 标记 数组 


@is used = Array.new(@country.size, false) 


geftyseacen(pnev de 
last ee 
@country.each with index{|c, i| 
mE prevl ueasen unen 
meeodiseusedla enen 
a False 


@is used[i] = true 
search(ce, depth + 1) 
@is usedli] = false 
eng 
end 


} 


@mnax depth = [enax depth, depthl.max If is last 


056 | 第 2 章 初级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


end 


# 从 各 个 国家 开始 搜索 
@max depth = 0 
@country.each with index{|c, i| 


@ish usedlil = treue 
Seaxen(ea) 
@is used[lil] = false 


} 
# 输出 最 大 深度 ( 即 连续 的 国名 个 数 ) 
puts @max depth 


为 什么 在 递归 搜索 前 设置 蛙 记 ， 在 递归 结束 后 又 复原 呢 ? 


因为 这 里 用 的 是 全 局 变量 。 不 过 也 可 以 杷 用 于 保存 “是 否 已 使 用 ”村 
记 的 数组 当 作 递 归 函 数 的 参数 。 


第 17 行 把 所 有 字母 都 转 损 成 大 写 了 呢 ， 这 样 既 清 晰 又 易 异 。 


接 下 来 是 “使 用 后 直接 删除 ”这 种 方法 的 实现 ( 代码 清单 14.02 )。 


代码 清单 14.02 (q14_02.rb ) 


# 设置 一 个 保存 世界 杯 人 参赛 国 的 数组 


eounery = ea rea Lo uMeieou Camereonn 
Spa eNethnertande en Use 
"Colombia", "Greece", "Cote dTvoirev, apan',, 
uucouay osta ricau neolanc Tol 
uvSwitzerland opeuador prancen i Honduras 
"Argentina", "Bosnia and Herzegovina", "Iran", 
"Nigeria", "Germany", "portugal", Cnana 
uySnu eel um le Vessan 


KorealRepu5lac 
def search(countrys, prev, depth) 
# 获取 所 有 后 续 可 用 的 国名 
next country = countrys.select{|c| c[0] == prev[-1] .upcase} 
TE nxtYeountey Sle > 0 Enen 
# 如 果 有 可 用 的 国名 ， 则 加 入 队列 ， 并 除去 这 个 国名 继续 递归 搜索 


next country.each{ |c| 


Q14 ”世界 杯 参 赛 国 的 国名 接龙 | 057 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


SSsacecmieounErvsEe iclPECRAEOeDED EN 


} 


else 
# 如 果 没 有 可 用 国名 ， 则 判断 当前 深度 是 否 最 大 
@max depth = [emax depth, depth] .max 
end 
end 


# 从 各 个 国家 开始 搜索 

@max depth = 0 

country.each{ |c| 
search(eountny Tcl en 

} 

# 输出 最 大 深度 ( 即 连续 的 国名 个 数 ) 

puts @max depth 


等 合 条 件 曲 后 续 国 名 ， 这 一 点 非常 简洁 明 3。 


本 次 问题 中 ， 参 赛 国 的 数量 很 少 ， 可 以 不 考虑 执行 时 间 简 单 求解 。 
但 如 果 参 赛 国 的 数量 增多 ， 执 行 时 间 会 明显 变 长 ， 这 就 是 接龙 游戏 的 难 
点 所 在 。 


6 
Korea Republic 一 Cameroon 一 Netherlands 一 Spain 一 


Nigeria 一 Argentina 一 Australia — Algeria 等 
※ 最 后 3 个 国家 名 字 顺 序 可 以 互相 替换 ， 全 部 解法 一 共 6 种 。 
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ED ET 
15 。 走 楼 梯 


pIIIIIIIIIIII III II II I II I I I II I II II I II II I II I I II I III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


A 上 楼 梯 时 ，B 从 同一 楼 梯 往 下 走 。 每 次 不 一 定 只 走 1 级 ， 最 多 可 
以 一 次 跳 过 3 级 ( 即 直接 前 进 4 级 )。 

但 无 论 走 多 少 级 ，1 次 移动 所 需 时 间 不 变 。 两 人 同时 开始 走 ， 求 共 
有 多 少 种 “两 人 最 终 同时 停 在 同一 级 ” 
的 情况 ( 假设 楼 梯 宽 度 足 够 ， 可 以 相互 RR 


错开 ， 不 会 撞 上 。 另 外 ， 同 时 到 达 同 一 4 
级 时 视 为 结束 )。 a 
举 个 例子 ， 如 加 所 示 ， 有 4 级 楼 
梯 的 时 候 ， 结 果 如 国 昌 所 示 ， 共 有 4 种 
情况 (假设 每 级 楼 梯 上 写 着 0~4 这 几 个 县: | 
数字 )。 0 
国 硬 A 上 楼 梯 ，B 下 楼 梯 


有 4 级 楼 梯 时 


(1) | 0 一 1 一 2 | 4 一 3 一 2 |A 和 B 都 一 次 走 1 级 楼 梯 
(2) |0—1 4 一 1 人 A 移动 1 级 ，B 跳 过 2 级 
(3) | 0 一 2 4 一 2 A 和 B 都 跳 过 1 级 

(4) | 0 一 3 4 一 3 A 跳 过 2 级 ，B 跳 过 1 级 


求 当 存在 10 级 楼 梯 ， 且 移动 规则 相同 时 ， 有 多 少 种 两 人 最 终 同 时 停 在 同一 
级 的 情况 ? 


Hi 


A 和 B 都 是 简单 控 顺 序 移动 ， 思 路 还 是 比较 


请 尽量 想 出 一 种 楼 梯级 数 变 大 也 能 快速 处 理 曲 方法 。 


Q15 走 楼 梯 | 059 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


从 “两 人 最 终 同时 停 在 同一 级 ”可 知 ，A 如 果 已 经 比 B 所 处 的 级 数 
大 ， 那 么 搜索 就 可 以 结束 了 。A 和 了 B 分 别 从 不 同位 置 出 发 ， 每 次 改变 前 
进 级 数 并 进行 递归 搜索 。 用 Ruby 实现 时 ， 代 码 如 代码 清单 15.01 所 示 。 


代码 清单 15.01 (qi5_01.rb ) 


N= # 楼 梯级 数 
STEPS = 4  # 一 次 最 大 前 进 级 数 


def move(a, b) 


Zee 0 E> 5 # 如 果 A 级 数 比 B 大 ， 则 结束 搜索 


return 1 if a == b  # 如 果 停 在 同一 级 ， 则 算 入 结果 
ent = 0 


(1. .STEPS) .each{ |da| 
(STees) eacnllllasl 
enBr novel(a dn dH 机 吕 
} 
} 


cnt 
end 


# A 从 位 置 0 开始 ，B 从 位 置 N 开 始 
puts move(O N) 


这 种 问题 属于 用 递归 就 可 以 简化 实现 的 典型 俩 子 。 不 过 如 果 旺 梯级 


数 超过 20， 计 算 时 间 就 会 比较 长 。 


不 如 用 前 面 的 Q11 里 提 到 过 的 内 存 化 方法 ? 
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下 面 这 个 实现 的 处 理 速 度 就 很 快 (代码 清单 15.02 )。 


代码 清单 15.02 (ql5_02.rb ) 


NE # 楼 梯级 数 
STEPS = 4 ”# 一 次 最 大 前 进 级 数 


@memo = {} 


def move (a, b) 

return @memo[[a,b]] if @memo.has key? ([a, b]) 
return @memo[[a,b]] = 0 if a >b # 如 果 和 A 级 数 比 B 大 ， 则 结束 搜索 
return @memo[[a, b]] = 1 if a == b # 如 果 停 在 同一 级 ， 则 算 入 结果 
cnt = 0 
(1..STEPS) .each{ |aal 

(eT eaeplae 

ene =move(a qa0p5 gb)# 递 归 搜 索 

b 

} 


@memol [ao = cn 
end 


# A 从 位 置 0 开始 ，B 从 位 置 N 开始 


puts move(0, N) 


所 谓 动态 规划 算法 ， 就 是 不 使 用 递归 实现 与 内 存 化 类 似 处 理 的 方 
法 。 本 题 条 件 下 , 可 以 计算 1 次 移动 后 所 处 的 楼 梯级 数 。 从 上 人 往 下 走 的 
B 所 处 级 数 的 可 能 情况 如 El。 


B 所 处 级 数 的 可 能 情况 
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两 人 同时 到 达 某 一 级 ， 可 以 等 价 为 “一 人 经 过 偶数 次 移动 到 达 相 反 
位 置 "， 因 此 可 以 像 代码 清单 15.03 这 样 实现 。 


代码 清单 15.03 (qli5_03.rb ) 


斌 0 # 楼 梯级 数 
STEPS = 4  # 一 次 最 大 前 进 级 数 


dp = Array.new(N + 1, 0) # 统计 七 次 移动 后 的 位 置 
cnt = 0 

dp[N] = 1 # 设置 初始 值 
N.times{ |i| # 移动 次 数 ( 最 大 NT) 


(N + 1) .times{|jl| # 移动 的 位 置 
(1..STEPS) .each{ |k| 
Deak ee re > 
Gp Hapland 
} 
dalj] =°"0 
b 
cnt += dp[0] if i $% 2 == 1 # 经 过 偶数 次 移动 到 达 相 反 位 置 
} 


Bussene 


清除 移动 位 置 


# 


只 用 循环 就 实现 了 了， 内存 使 用 量 非常 少 啊 。 


处 理 时 间 上 内 存 化 和 动态 规划 算法 差不多 , 这 两 种 解法 都 会 , 真是 后 
定 虽 。 


用 这 两 种 方法 ， 就 算是 100 级 的 楼 梯 也 可 以 马上 得 出 答案 。 一 旦 实 
际 体验 过 内 存 化 和 动态 规划 的 效果 ， 一 定 会 对 它们 爱不释手 的 ， 建 议 大 
尝试 一 下 这 两 种 算法 。 


201 种 
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EE ET 
Qe 3 根 强 子 折 成 四 边 形 


SAA 
假设 分 别 将 3 根 长 度 相 同 的 绳子 摆 成 3 个 四 边 形 。 其 中 2 根据 成 长 


方形 ， 剩 下 1 根 所 成 正方 形 。 这 时 ， 会 出 现 2 个 长 方形 的 面积 之 和 等 于 
正方 形 面积 的 情况 ( 假设 长 方形 和 正方 形 的 各 边 长 都 为 整数 )。 


例 ) 绳子 长 度 为 20 时 ， 可 以 折 出 以 下 这 些 正方 形 和 长 方形 。 
第 1 根 长 1x 宽 9 的 长 方形 一 面积 = 
第 2 根 长 2x 宽 8 的 长 方形 一 面积 = 16 
第 3 根 长 5x 宽 5 的 正方 形 一 面积 = 25 


一 步 改 变 绳子 长 度 并 摆 成 长 方形 和 正方 形 ， 统 计 满 足 条 件 的 长 方 
0 。 这 里 ， 将 同比 整数 倍 的 结果 看 作 同一 种 解法 。 


例 ) 绳子 长 度 为 40, 60, … 时 ， 可 以 通过 对 上 例 进 行 等 比 运算 得 出 以 下 这 些 正 
方形 和 长 方形 的 组 合 , 但 要 将 它们 看 作 同 一 种 解法 ， 所 以 这 一 类 只 统计 为 
1 种 。 

e 绳子 长 度 = 40 
第 1 根 长 2x 宽 18 的 长 方形 一 面积 = 36 
第 2 根 长 4x 宽 16 的 长 方形 一 面积 = 64 
第 3 根 长 10x 宽 10 的 正方 形 一 面积 = 100 
e 绳子 长 度 = 60 
第 1 根 长 3x 宽 27 的 长 方形 一 面积 = 81 
第 2 根 长 6x 宽 24 的 长 方形 一 面积 = 144 
第 3 根 长 15x 宽 15 的 正方 形 一 面积 = 225 


求 绳子 长 度 从 1 增长 到 500 时 , 共有 多 少 种 组 合 能 使 摆 出 的 2 个 长 方形 面积 
之 和 等 于 正方 形 的 面积 ? 


in 世 
Hp 
i 


寻求 数学 解法 也 是 一 种 思路 哦 。 
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这 个 问题 中 共有 5 个 变化 的 数字 ， 即 第 1 个 长 方形 的 “长 ”和 
“ 宽 ”， 第 2 个 长 方形 的 “长 ”和 “ 宽 "， 以 及 第 3 个 正方 形 的 “ 边 长 "。 


长 边 长 
宽 
长 
宽 
国 回 变化 的 数字 
这 里 ， 如 果 强 子 的 长 度 定 了 ， 那么 正方 形 的 “ 边 长 ”自然 也 就 


年 了 。 


正方 形 的 边 长 就 是 绳子 长 度 网 四 分 之 一 。 


另外 ， 如 果 长 方形 的 “长 ” 定 下 来 了 , 那么 “ 宽 ” 也 就 定 了 。 根 据 
这 些 信息 ， 可 以 依次 改变 绳子 长 度 ， 并 计算 长 方形 和 正方 形 的 面积 。 
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如 果 用 Ruby 实现 ， 代 码 如 代码 清单 16.01 所 示 。 


代码 清单 16.01 (q16_01.rb ) 
MAX = 500 
answer = [] 
(1. .MAX/4) .each{ |c| # 正方 形 边 长 
edge = (1..(c-1)).to a.map{|tate| tate * (2 *c - tate)} 
edge.combination(2){|a，b| # 长 方形 面积 
TE Db 0 0 tnenm 
aaswersous e /a EomE c/o /a Eonil 
end 
} 
} 
answer .uniqg! # 去 除 整数 倍 的 情况 
puts answer.size 


如 果 把 正方 形 的 边 长 设 为 c， 那么 正方 形 的 面积 就 是 c2。 因 为 周 长 
相等 ， 所 以 其 中 一 个 长 方形 的 长 和 宽 可 以 表示 如 下 。 


c 一 X, C + X (将 正方 形 边 长 增 减 x) 


那 公 这 个 长 方形 的 面积 就 是 (CX)(C OO 有 就 天 2 X20 锌 下 
的 长 方形 面积 则 且 02 一 (C2 一 这 )， 也 就 是 “平方 数 '6 

同 理 可 知 ， 第 一 个 长 方形 的 面积 也 一 定 是 平方 数 。 总 结 一 下 就 是 ， 
这 些 四 边 形 的 面积 满足 等 式 q? + b? = Cc?。 也 就 是 说 ， 只 需要 求 满足 勾 
股 定理 的 整数 a, b,c 的 组 合 就 可 以 了 。 


该 问题 中 ， 周 长 上 限 为 S00， 和 斜 边 最 长 为 500:4 = 125。 又 因为 
“同比 整数 倍 的 结果 看 作 同 一 种 解法 ”， 因 此 ac 和 5 的 最 大 公约 数 应 该 
为 1。 

用 Ruby 实现 时 ， 代 码 如 代码 清单 16.02 所 示 。 
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代码 清单 16.02 (qi6_02.rb ) 
MAX = 500 
ea = 0 
(1. .MAX/4) .each{ |c| # 正方 形 边 长 
(| 
TE == co then 
Tie EN) 三 
end 
} 
} 
puts cnt 


顺便 提 一 下 ,如 果 长 和 宽 互 损 也 看 作 不 同 长 方形 , 那么 只 需要 把 代码 
中 的 combination 改 为 permutation 即 可 。 其 实 还 有 一 种 思路 ， 
就 是 第 1 根 绳子 和 第 2 根 绳子 互 损 后 也 看 作 是 不 同 的 长 方形 。 


在 Ruby 这 样 的 语言 里 , combination 、permutation 这 样 的 方法 
可 以 省 不 少 事 吗 。 


也 要 多 党 试 一 下 别 揭 语言 吗 。 


2 和 
如 果 长 和 宽 互 换 也 算 不 同 的 长 方形 ， 则 是 40 种 


如 果 前 两 根 绳子 互 换 也 算 不 同 的 长 方形 ， 则 是 80 种 ) 
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EE BET 
17 挑战 30 人 31 足 


pIIIIIIIIIIIII II I II II I II I I I II I I II I II II I II I I II III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


以 前 有 个 电视 节目 ,全 国 各 地 的 小 学 生 在 这 个 节目 里 参加 “30 人 
31 足 ” 苋 赛 。 后 来 电视 剧 里 也 出 现 过 这 些小 学 生 练 习 的 场景 并且 全 国 
大 赛 时 小 学 生 们 表现 出 来 的 速度 也 曾 引 人 注目 。 

下 面 探 讨 一 下 什么 样 的 排列 顺序 在 “30 人 31 足 ” 比 赛 里 比较 有 利 。 
多 个 女生 连续 排列 ， 体 力 上 会 处 于 劣势 ， 所 以 原则 是 尽量 不 让 女生 相 邻 
(男生 可 以 连续 排列 )。 


问题 
求 30 个 人 排 成 一 排 时 ， ed 
多 少 种 有 利 的 排列 方式 ? 假设 
只 考虑 男女 的 排列 情况 ， pd 
某 个 人 的 位 置 。 举 个 例子 ,4 个 人 (4 和 和 生生 晤 他 
人 5 足 ) 的 情况 下 如 了 加 固 所 示 , 共有 
8 种 排列 方式 。 呈 呈 各 | 


医 目 “4 人 5 足 ” 的 时 候 共 有 8 种 排列 方式 


咽 ， 也 就 是 怎么 安插 女生 曲 位 置 吧 …… 考 虑 这 样 曲 排列 组 合 可 不 暗 
单 吧 。 


与 其 考虑 所 有 人 的 排列 情况 ， 
这 样 可 能 唤 单 一 些 …… 


不 如 看 看 一 个 人 一 个 人 地 增加 的 方法 ， 
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在 满足 条 件 的 排列 方法 中 ,“ 每 次 添加 一 人 ， 并 保证 女生 不 会 连续 
排列 ”这 种 方法 相对 简单 。 那 么 ， 当 半 人 排列 时 ， 如 果 最 右边 是 男生 ， 
则 “加 一 个 男生 或 者 一 个 女生 ”; 如 果 最 右边 是 女生 ， 则 “只 能 加 一 个 
男生 ”。 


而 能 加 女生 曲 就 只 有 右边 是 男生 曲 情况 。 这 样 拘 


随时 都 可 以 加 男生 ， 
思路 也 没 错 吧 ? 


个 思路 , 如 代码 


ee 一 个 很 关键 曲 点 , 我 们 可 以 用 Ruby 实现 这 
青 单 17.01 所 示 。 


代码 清单 17.01 (aq17_01.rb ) 


# 了 符 表示 女 
lao Cel s Wa, Veu 
N= 30 


def add (seq) 
# 到 达 排 列 人 数 上 限 ， 终 止 递归 


Eeturn Tseq eize = 


# 未 满 30 人 时 ， 加 男生 ， 当 右边 为 男生 时 加 女 
cnt = add(seq + @boy) 
cnt += add(seq + @girl) if seq[-1] == @boy 
EU 

end 


# 从 男生 或 者 女生 开始 
puts add (@boy) + add (@girl) 


使 用 递归 可 以 写 出 简洁 易 懂 曲 代 码 呢 。 


的 确 如 此 。 不 过 如 果 只 有 几 L 个 人 ， 计 算 倒是 托 快 ， 但 30 个 人 就 要 处 
理 一段 时 间 3。 试 试看 能 不 能 优化 一 下 吧 。 说 到 性 能 优化 , 之 前 已 经 
介绍 过 内 存 化 和 动态 规划 算法 ， 下 面 介绍 一 种 不 同 拘 优化 思路 。 
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如 果 已 经 排列 了 n 一 1 个 人 ， 则 

e 如 果 第 n - 1 个 人 是 男生 ， 则 第 n 个 人 可 以 是 男生 也 可 以 是 女生 
。 如 果 第 n - 1 个 人 是 女生 ， 则 第 nn 个 人 只 能 是 男生 

也 就 是 说 ， 

e 如 果 第 n 个 人 是 男生 ， 则 第 n - 1 个 人 可 以 是 男生 也 可 以 是 女生 
e 如 果 第 nn 个 人 是 女生 ， 则 第 n - 1 个 人 只 能 是 男生 


基于 前 面 的 分 析 ， 实 现 还 可 以 简化 ， 如 代码 清单 17.02 所 示 。 


代码 清单 17.02 ( q17 02.rb ) 


N = 30 

ET 

N.times{|i| 
# 求 已 排列 n-1 人 时 的 状态 
Gy 


puts boy + girl 


真 的 假 的 ! ? 这 么 短 网 代码 就 可 以 解决 问题 了 1 ? 


PR 
Se 因为 只 作 了 人 数 况 循环 , 所 以 几 香 肯 间 就 求 得 监 家 3。100 人 101 风 
~ 的 情 况 也 可 以 只 用 100 况 循 环 就 计算 出 景 后 结果 。 
Hc 


我 们 还 可 以 再 换个 角度 来 看 ， 具 体 如 下 。 

e 如 果 第 n 个 人 是 男生 ， 则 第 n - 1 个 人 可 以 是 男生 也 可 以 是 女生 

e 如 果 第 n 个 人 是 女生 ， 则 第 n - 1 个 人 只 能 是 男生 

也 相当 于 下 面 这 样 : 

e 如 果 最 后 一 个 人 是 男生 ， 则 排列 方式 数 与 n - 1 个 人 时 一 致 

e 如 果 最 后 一 个 人 是 女生 ， 则 第 n - 1 个 人 是 男生 … 排列 方式 数 与 
n = 2 个 人 时 一 致 
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是 的 。 这 个 问题 的 关键 在 于 是 否 能 看 出 统计 数字 变化 符合 韭 波 那 契 
数列 的 规律 。 


也 就 是 说 ,“ 所 求 数 = 前 面 的 数 + 再 前 面 的 数 " ,也 就 是 ftn) = 
jz- 1D + fn -2)。 这 就 是 斐 波 那 契 数列 公式 。 

求 斐 波 那 契 数列 的 方法 除去 本 书 提 及 的 之 外 ， 网 上 也 有 很 多 实例 可 
供 参 考 ， 可 以 多 做 调研 。 


2178309 种 
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转换 视角 的 重要 性 


看 到 这 个 问题 一 下 子 想到 斐 波 那 契 数列 的 人 非常 少见 。 小 范围 测 
试 一 下 会 发 现 ， 一般 人 一 开始 要 么 会 着 重 分 析 整 体 排列 顺序 ， 要 么 会 
转换 视角 ， 从 而 发 现 书 里 解说 的 第 一 个 解法 。 

事实 上 ， 平时 的 编程 工作 往往 也 是 这 样 。 程 序 通常 一 次 性 开发 后 
就 结束 了 。 测 试 通过 之 后 ， 同 一 段 代 码 就 可 以 直接 继续 使 用 。 这 里 不 
推荐 “重新 造 轮 予 "， 建 议 遇 到 问题 时 参考 已 有 的 程序 。 

大 多 数 情况 下 ， 人 们 都 是 在 “处 理 效率 太 低 ”“ 程 序 运行 不 正常 ” 
的 时 候 ， 才 会 去 改动 当初 写 的 代码 。 而 事实 上 ， 无 论 有 没有 更 好 的 方 
法 ， 最 可 惜 的 都 是 没有 去 发 据 更 优 解法 的 想法 。 

建议 大 家 养 成 用 不 同 思路 去 编程 的 “ 怪 辛 ”"。 虽 然 “ 知 易 行 难 "， 遇 
到 问题 即便 仅仅 过 了 一 天 之 后 再 重新 思考 ， 也 或 许 会 有 意 想不到 的 收获 。 


中 即 n 个 人 时 的 排列 方式 数 二 n 一 1 人 时 的 排列 方式 数 十 n 一 2 人 时 的 排列 方式 数 。 
一 一 编者 注 
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:水果 酥 饼 


18 
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日 本 每 月 的 22 日 是 水 果 酥 饼 日 。 因 为 看 日 历 的 时 候 ，22 日 的 上 方 
刚好 是 15 日 ， 也 就 是 “'22” 这 个 数字 上 面 点 缀 着 草莓 " 。 

切 分 酥 饼 的 时 候 ， 要 求 切 分 后 每 一 块 上 面 的 草莓 个 数 都 不 相同 。 假 
设 切 分 出 来 的 N 块 酥 饼 上 要 各 有 “1~N 个 ( 共 N(N + 1D)=2 个 草莓 了 。 

但 这 里 要 追加 一 个 条 件 ， 那 就 是 “一 定 要 使 相 邻 的 两 块 酥 饼 上 的 数 
字 之 和 是 平方 数 ”。 

举 个 例子 ,假设 N = 4 时 采用 
如 医 回 的 切 法 。 这 时 ， 虽 然 1 + 3 = 
4 得 到 的 是 平方 数 , 但 “1 和 4” ”2 
和 3”“2 和 4” 的 部 分 都 不 满足 条 
件 〈E 四 )。 


不 满足 条 件 的 切 法 示例 


求 可 以 使 切 法 满足 条 件 的 最 小 的 N( N > 1 )。 


in 世 
Ht A 
Nip 


四 ”如果 将 日 语 的 15 拆 为 1 和 5 发音， 则 与 日 语 “ 草 莓 ”一 词 发 音 相同 ,而 水 果 酥 
饼 中 最 为 著名 的 就 是 草莽 酥 饼 。 同 时 , 日 历 中 15 总 在 22 的 上 面 ， 故 有 此 说 法 。 
译 者 注 


只 村 提前 准备 好 平方 数列 表 ， 就 可 以 简单 实现 了 。 
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这 个 问题 关键 在 于 如 何 验证 平方 数 。 为 验证 相 邻 两 数 之 和 是 否 是 平 
方 数 ， 只 要 预先 准备 好 平方 数 就 相对 简单 了 。 因 为 相 邻 两 块 酥 饼 上 的 草 
和 莓 个 数 最 多 也 不 会 超过 N 的 2 倍 ， 所 以 可 以 事先 计算 好 。 


准确 地 说 , 相 邻 两 个 酥 饼 上 曲 草 茵 个 数 之 和 最 大 应 访 是 N+ (N 一 11) 


=2N 一 1 个 。 


切 分 后 的 酥 饼 是 围 成 圆 形 的 ， 首 先 固定 最 开始 的 一 块 酥 饼 ， 并 假设 
这 块 酥 饼 上 的 草莓 个 数 为 1。 因 为 其 他 切 法 都 可 以 通过 旋转 酥 饼 得 到 ， 
所 以 这 个 假设 的 前 提 是 成 立 的 。 

然后 顺 时 针 分 配 放 置 的 草 毒 个 数 ， 保 证 每 次 放置 的 草 答 个 数 都 符合 
条 件 ， 直 到 最 后 一 块 上 的 数字 和 最 初 的 1 相 加 也 得 到 平方 数 。 用 Ruby 
实现 时 ， 代 码 如 代码 清单 18.01 所 示 。 


代码 清单 18.01 (qi8_01.rb ) 


def cocheck(n, pre, Jog, square) 
Eqn loons Lze then 
# 全 部 放置 结束 
if square.include?(1 + pre) then 
# 1 和 最 后 一 个 数 之 和 为 平方 数 时 
Dee 
p log 
return true # 只 要 找到 1 种 解法 就 结束 
end 
ese 
((1..n) .to a - log) .each{|i| # 遍历 没有 被 使 用 的 数 
Esouare noluder (Pee enen 
# 如 果 和 前 一 个 数 之 和 为 平方 数 


Keun teue rE enear(ne Too FI square) 


n=2 
while true do 
# 事先 计算 平方 数 ( 最 大 值 为 n 的 2 倍 ) 


072 | 第 2 章 初级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 


版 权 


Sauare (2 Matnesart (nr 2 loor map 2 
break if check(n, 1, [1], square) 
n+= 1 


这 个 问题 也 能 用 省 归 写 得 这 么 简洁 明 呢 。 


AN 请 务必 用 其 他 语言 试 一下。 预先 计算 好 相 邻 能 组 合成 平方 数 拘 数 字 ， 
\/ 处理 过 程 还 可 以 更 快 。 下 面 还 是 用 Ruby 实 现 的 例子 (代码 清音 
oH 18.02», 


代码 清单 18.02 (qli8_02.rb ) 


dete eneek (mast ony usedr let) 
# 已 经 全 部 使 用 ， 如 果 和 最 初 的 1 相 加 能 得 到 平方 数 ， 则 结束 递归 
eturrne lm usedeall ee (sub neluder (East 


list[last n] .each{|i| # 逐一 尝试 候补 数字 
if used[i - 1] == false then # 没有 全 部 使 用 的 情况 
used[i - 1] = true 


result = check{i, vsed, list) 
# 找到 的 时 候 ， 添 加 这 个 值 
returnlul restule TE resule sze 0 
used[i - 1] = false 
end 


ns 2 

whunlen te ue de 
Sauare (20 Matnisare(n 2) Floor ma 2 
# 找到 可 以 作为 相 邻 数字 的 候补 数字 


ee = 
(ei 

SI square.map{|s|l 's — 1}.select{|sl's > 0} 
} 


# 把 1 设置 为 已 使 用 ， 从 1 开始 搜索 
result = check(1, [true] + [false] * (n - 1), list) 
break if result.size > 0 
ja 
end 
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草莓 的 放置 方案 如 下 : 
[1, 8, 28, 21, 4, 32, 17, 19, 30, 6, 3, 13, 12, 24, 25, 11, 5, 31, 
18, 7, 29, 20, 16, 9, 27, 22, 14, 2, 23, 26, 10, 15] 
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编程 语言 的 选择 方式 


世界 上 的 编程 语言 有 很 多 ， 所 有 的 都 学 习 当 然 是 不 可 能 的 。 因 此 
从 有 代表 性 的 编程 语言 里 选 出 一 门 作为 自己 专攻 的 语言 是 很 有 必要 
的 。 从 事 编程 工作 的 人 可 能 有 工作 环境 的 限制 ， 在 学 校 学 习 编 程 语言 
的 学 生 也 有 课程 的 限制 , 所 以 都 不 能 使 用 指定 语言 以 外 的 语言 。 不 过 ， 
个 人 学 习 的 时 候 ， 还 是 可 以 自由 选取 语言 的 。 

没有 一 门 绝对 通用 的 编程 语言 ， 只 有 在 某 种 环境 、 某 个 实现 需求 
的 前 提 下 ， 才 存在 比较 合适 的 编程 语言 。 如 果 要 实现 一 个 Web 应 用 ， 
那么 会 有 更 多 人 选择 PHP、Java、Ruby 或 者 Perl 等 ， 而 不 是 C。 在 主 
机 编程 领域 , 至 今 COBOL 还 扮演 着 重要 的 角色 。 如 果 追 求 处 理 速 度 ， 
C 语言 是 一 个 比较 合理 的 选择 ， 而 开发 Android 应 用 则 一 般 会 用 Java。 

学 习 编 程 的 时 候 ， 最 好 不 要 局 限于 某 一 门 语言 。 本 书 主 要 使 用 
Ruby 和 JavaScript。 使 用 Ruby 是 因为 有 大 量 接 口 简单 的 库 , 并 且 比较 
适合 用 来 讲解 ; 使 用 JavaScript 则 是 因为 几乎 所 有 读者 都 有 它 的 运行 环 
境 。 另 外 ， 用 JavaScript 实现 的 代码 也 相对 容易 移植 到 其 他 语言 上 。 

希望 大 家 试 着 用 最 少 两 门 的 语言 去 实现 ， 并 且 尽 量 对 比 两 门 语言 
的 特征 差异 ， 而 且 最 好 要 选择 两 门类 型 不 同 的 语言 。 养 成 从 不 同 视角 
看 待 问 题 的 习惯 后 ， 技 巧 也 会 得 到 提升 。 
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19 “朋友 的 朋友 也 是 朋友 吗 
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“六 度 空间 理论 ”非常 有 名 。 大 概 的 意思 是 1 个 人 只 需要 通过 6 个 
中 间 人 就 可 以 和 世界 上 任何 1 个 人 产生 间接 联系 。 本 题 将 试 着 找 出 数字 
的 好 友 (这 里 并 不 考虑 亲密 指数 )。 

假设 拥有 同样 约 数 (不 包括 1 ) 的 数字 互 为 “好 友 ”， 也 就 是 说 ， 如 
果 两 个 数字 的 最 大 公约 数 不 是 1， 那 么 称 这 两 个 数 互 为 好 友 。 

从 1~N 中 任意 选取 一 个 “ 合 数 ”"， 求 从 它 开始 ， 要 经 历 几 层 好 友 ， 
才能 和 其 他 所 有 的 数 产 生 联 系 ( 所 谓 的 “ 合 数 ”是 指 “ 有 除 1 以 及 自身 
以 外 的 约 数 的 自然 数 ”)。 

举 个 例子 ，N = 10 时 ，1~10 的 合 数 是 4、6、8、9、10 这 5 个 。 

如 果 选 取 的 是 10， 那么 10 的 好 友 数 字 就 是 公约 数 为 2 的 4、6、8 
这 3 个 。 而 9 是 6 的 好 友 数 字 (公约 数 为 3 )， 所 以 10 只 需要 经 过 2 层 
就 可 以 和 9 产生 联系 ( )。 如 果 选 取 的 是 6， 则 只 需 经 过 1 层 就 可 以 
联系 到 4、8、9、10 这 些 数字 。 因 此 N = 10 时 ， 无论 最 初 选 取 的 合 数 
是 什么 ， 最 多 经 过 2 层 就 可 以 与 其 他 所 有 数 产生 联系 。 


\X 
\ 
} 朋友 AS 朋友 s 清 。 朋友 的 朋友 


RN A 
党 总 -总 


N= 10 的 时 候 


求 从 1~N 中 选取 7 个 合 数 时 ,最 多 经 过 6 层 就 可 以 与 其 他 所 有 数 产 生 联 系 的 
最 小 的 N。 
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要 解决 这 个 问题 ， 首 先 要 正确 理解 问题 中 出 现 的 词 。 首 先是 


问题 里 提 到 了 ， 是 “有 除 1 以 及 自身 以 外 的 约 数 的 自然数 "。 


那么 ， 与 合 数 相 对 的 是 什么 数字 呢 ? 


那 就 是 “没有 除 和 以 及 自身 以 外 的 约 数 "， 所 以 是 质数 吧 。 


其 次 是 “公约 数 ” 这 个 词 。 小 学 的 时 候 ， 我 们 就 做 过 求 最 大 公约 数 
的 题 。 公 约 数 的 意思 就 是 “共同 的 约 数 "。 这 里 ， 拥 有 共同 约 数 的 数字 
互 为 “好 友 ”， 那 么 就 需要 求 最 大 公约 数 非 1 的 情况 。 

从 1~N 中 选取 7 个 合 数 ， 且 “最 多 经 过 6 层 ”"， 那 么 可 以 得 知 ， 我 
们 要 找 的 是 “由 2 个 数 相 乘 得 到 的 数字 ”的 组 合 。 这 样 的 话 ， 乘 法 运算 
中 的 这 2 个 数 就 会 成 为 公约 数 。 

举 个 例子 ， 选 出 a~h 这 些 数 。 简 单 地 说 就 是 ， 当 7 个 数字 分 别 是 以 
下 的 形式 时 ， 经 过 6 层 就 能 与 其 他 所 有 数 产生 联系 。 


axb, bxc, cxd dxe exf fxg, gxh 


※ 这 里 a~h 这 些 数字 必须 “ 互 质 ”。 


“ 互 质 ”是 什么 意思 吧 ? 


指 的 是 2 个 整数 之 间 ， 除 了 1 或 者 一 1 以 外 没有 其 他 公约 数 。 在 这 个 
问题 中 ， 拥 有 共同 约 数 的 数字 就 是 “好 友 ”， 和 那么 前 面 的 设计 就 可 以 
使 只 有 相 邻 2 个 数字 才 互 为 “好 友 ”。 
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更 进一步 考虑 ， 也 可 以 像 本 题 中 的 例子 一 样 ， 把 第 1 个 数字 设置 成 
“平方 数 ”( 即 4)， 也 就 是 说 变 成 下 面 这 样 的 组 合 更 好 。 


axa,axb,bxc,cxd,dxe,exf{,fxeg 
末尾 如 果 同 样 设置 成 平方 数 就 会 变 得 更 小 ,也 就 是 变 成 下 面 这 样 的 
axsasaiobaibxccexgEdxsee xf 位 X 寺 


用 Ruby 可 以 像 代 码 清单 19.01 这 样 实现 。 


代码 清单 19.01 (q19 01.rb ) 


eduUaseeaecnumea 


primes = Prime.take (6) # 用 6 个 质数 充当 a~f 
min = primes[-1] * primes[-1] # 把 最 小 数字 设置 成 最 大 质数 的 
mim teriend = 


TS 


方 


潭 


primes.permutation{ |prime| # 按 顺 序 排列 的 6 个 质数 
# 按 顺 序 选 取 2 个 数字 作 乘 法 
friende = prime eachcons(2) map(le yy) 
# 开头 和 结尾 是 相同 数字 的 平方 
friends += [prime[0], prime[-1]] .map{|x| x * x} 
if min > friends.max then  # 更 新 最 小 数字 的 情况 
min = friends.max 
mn Eend = Endes 
end 


} 


puts min 
Be mm en 
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因为 要 求 互 质 的 数字 ， 所 以 用 prime 来 选取 了 质数 ， 对 吧 ? 


是 的。 从 6 个 质数 中 景 小 的 数字 开始 小 , 可 以 得 到 满足 条 件 的 景 小 网 
数字 。 


给 数组 索引 传 入 “-1” 作 为 下 款 ， 就 可 以 取 到 数组 的 最 后 一 个 元 素 
呢 。 这 里 还 封装 了 求 质数 的 库 ， 用 Ruby 真是 方便 吗 。 


也 一 定 村 思考 一 下 用 其 他 语言 怎么 实现 哦 。 


满足 条 件 的 组 合 为 : 
[4, 26, 39, 33, 55, 35, 49] 


© Column 让 


轧 转 相 除 法 


谈 到 算法 ,就 不 得 不 提 “ 思 转 相 除法 ”。 这 是 求 最 大 公约 数 的 方法 ， 
被 称 为 “世界 上 最 古老 的 算法 ”。 本 题 中 求 “ 两 数 互 质 ”时 ,如 果 将 其 
看 作 “ 两 数 最 大 公约 数 为 1"， 则 也 能 用 上 这 种 算法 。 

驾 转 相 除 法 常常 被 视 作 算法 的 代表 出 现在 C 语言 这 类 编程 语言 的 
入 门 书 中 ， 而 像 Ruby 这 样 的 语言 本 身 就 内 置 了 求 最 大 公约 数 的 函数 
gcd。 毫 无 疑问 ， 驾 转 相 除法 至 今 仍然 是 非常 重要 的 算法 。 

即使 是 这 些 平时 很 常用 的 方便 的 函数 , 如 果 能 自己 动手 实现 一 遍 ， 
也 会 有 新 的 发 现 。 推 荐 大 家 试 一 下 。 
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西班牙 有 个 著名 景点 叫 圣 家 堂 ， 其 中 “受难 立 面 ”上 主要 画 着 耶稣 从 
“最 后 的 晚餐 ”到 “升天 ”的 场景 ， 其 中 还 有 一 个 如 医 加 所 示 的 魔方 阵 ， 
“ 纵 、 横 、 对 角 线 的 数字 之 和 都 是 33" 而 闻名 ( 据说 耶稣 辞世 时 是 33 岁 )。 

如 果 不 局 限于 由 纵 、 横 、 对 角 线 的 数字 相 加 ， 那 么 和 数 为 33 的 组 
合 有 310 种 之 多 (网 上 有 很 多 “4 个 数字 相 加 ……” 这 样 的 问题 ， 如 果 
限定 只 能 由 4 个 数字 相 加 ， 则 是 88 种 )。 


国 呵 受难 立 面 魔方 阵 


使 用 这 个 魔方 阵 ， 进 行 满足 下 列 条 件 的 加 法 运算 ， 求 “和 相同 的 组 合 ”的 种 
数 最 多 时 的 和 。 
【条 件 】 
e 不 限于 由 纵 、 横 、 对 角 线 上 的 数字 相 加 
e 加 数 的 个 数 不 限于 4 个 


能 得 出 33 这 个 “和 ”的 组 合共 有 310 种 。 因 此 , 如 果 组 合 数 没有 超过 310 种 , 那么 答案 
0 33。 


in 包 
Ht NS 
ih 


这 里 是 穷 举 所 有 加 法 运算 的 组 合 ， 注 意 愉 量 优化 处 理 速 度 。 
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思路 

这 是 关于 魔方 阵 的 问题 ， 这 次 的 问题 只 涉及 加 法 运算 ， 所 以 不 需要 
关心 数字 的 排列 方式 。 我 们 可 以 生成 任意 多 个 组 合 ， 然 后 对 这 些 组 合 进 
行 加 法 运算 ,得 出 结果 ， 统 计 最 常 出 现 的 和 即 可 。 按 照 问题 描述 ， 用 
Ruby 可 以 像 代码 清单 20.01 这 样 实现 。 


代码 清单 20.01 (q20_01.rb ) 


# 把 魔方 阵 保存 到 数组 
magromesgUanes = I A144 11 7 69 
S; 10;, 10, 5 193, 2; 3; 191 


# 用 于 统计 的 哈 希 表 
sum = Hash.new(0) 
1.upto (magic_ square.size){|i| 
# 对 组 合 进行 全 量 搜索 
magic square.combination(i){|set| 
# 把 组 合 的 和 统计 保存 到 哈 希 表 
sum[set.inject(:+)] += 1 
} 
} 


# 输出 出 现 次 数 最 多 的 和 
puteoss sume mal | 


执行 这 个 程序 ， 可 以 得 到 正确 答案 “66”。 


我 不 太 理解 景 后 一 行 的 “{}” 中 的 内 容 。 


在 Ruby 中 ， 哈 希 表 中 使 用 maXx 或 者 Sort 方 法 的 时 候 ， 是 对 key 进 


行 重 排 。 要 对 “ 值 ” 进 行 重 排 ， 则 要 像 代码 清单 20.01 一 样 实现 。 


仔细 看 看 ， 和 为 66 拘 有 1364 种 情况 呢 ! 
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这 里 的 魔方 阵 上 只 有 16 个 数字 ,运行 程序 后 几乎 一 瞬间 就 可 以 得 
到 答案 。 但 如 果 改 为 6x6 的 魔方 阵 ， 就 要 花费 不 少 处 理 时 间 。 这 里 稍 
微 优化 一 下 ， 每 次 设置 1 个 数字 ， 并 且 复 用 已 计算 出 的 和 。 


基于 上 述 思路 实现 时 ， 代 码 如 代码 清单 20.02 所 示 。 


代码 清单 20 .02 (q20 02.rb ) 


# 把 魔方 阵 保存 到 数组 

magresauarne = 44 TI 了 GO 
(ep at lo so le or ha 

sum all = magic square.inject(:+) 


# 用 于 统计 的 哈 希 表 
sum = Array.new(sum all + 1){0} 
# 初始 值 ( 没有 加 任何 值 时 为 1 ) 
Sum[0] = 1 
magic square.each{ |n| 
# 从 大 数 开始 按 顺 序 作 加 法 
(sum all - mn) .downto(0) .each{|i| 
sum[i + n] += sum[i] 
} 
} 


# 输出 出 现 次 数 最 多 的 和 
puts sum.find index(sum.max) 


试 了 一下 ， 即 使 让 6x 6 的 魔方 阵 也 能 一 瞬间 就 处 理 完 呢 。 


很 多 时 候 只 要 转换 -下 思路 ， 处 理 时间 就 可 以 大 幅度 减少 。 平 时 也 
轩 多 转换 明度 想 一 下 嘻 。 


咏 
| 
8 


( 有 1364 种 组 合 ) 
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到 国外 去 


大 家 都 出 过 国 吗 ? 如 果 已 经 工作 了 ， 那 长 时 间 休 假 的 机 会 就 很 少 
了 。 很 多 人 即便 假期 很 多 ， 也 会 选择 在 家 里 待 着 ， 悠 哉 悠哉 。 

我 曾经 不 愿意 出 国 。 一 方面 觉得 网 上 可 以 找到 景点 照片 ， 另 一 方 
面 ， 外 国 景 点 的 商品 也 可 以 网 购 得 到 。 有 时 候 我 会 觉得 ， 即 便 待 在 家 
里 ， 和 去 过 也 没什么 分 别 。 不 过 ， 实 际 出 国 看 过 之 后 ， 我 才 发 现 ， 有 
很 多 见闻 从 网 上 是 无 法 体会 到 的 。 

事实 上 ， 这 个 问题 正 是 受 我 到 西班牙 旅行 时 看 见 的 魔方 阵 的 启发 
而 来 的 。 网 上 可 以 搜 到 魔方 阵 的 事情 ， 对 它 我 也 早 有 耳闻 ， 然 而 实地 
亲身 体验 时 , 当地 那 种 氛围 和 风俗 人 情 等 又 给 了 我 完全 不 一 样 的 体会 。 
比如 ， 很 多 在 国内 时 认为 是 常识 的 ， 到 这 里 并 不 适用 ; 再 次 认识 到 了 
自己 的 无 知 ; 在 陌生 环境 下 活动 的 紧张 感 ; 回 到 家 后 能 感受 到 祖国 的 种 
种 好 处 。 

无 论 网 络 如 何 发 展 ,始终 还 是 无 法 替代 “去 过 "”“ 懂 了 ”或 者 “ 见 
过 ”这 些 事实 。 虽 然 旅费 不 菲 ， 但 我 觉得 最 终 的 收获 是 无 法 用 金钱 衡 
量 的 。 

肯定 有 很 多 只 有 工程 师 才 能 感受 得 到 的 东西 ， 所 以 有 机 会 请 一 定 
到 国外 去 看 看 、 去 感受 。 
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异 或 运算 三 角形 
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著名 的 “帕斯卡 三 角形 ”的 计算 法 则 是 “ 某 个 数值 是 其 左上 角 的 数 
和 右上 和 角 的 数 之 和 ”。 这 里 我 们 用 蜡 或 运算 代 蔡 单纯 的 和 和 运算， 从 第 一 
层 开始 计算 ,最 终 可 以 得 到 如 医 回 所 示 的 三 角形 。 


Q ED 
21 


| 
第 2 
第 3 
第 4 
Es 
第 6 
定夺 
第 8 
第 9 
第 10 
第 11 
第 12 


大 起 是 

1 -1004 
ED 

下 浊 下 
Ooo oo Ol 
T T0000 0 1 1 
OOOO 
站 下 Oo 


国 克 通过 异 或 运算 得 到 的 三 角形 


部 市 部 项 卯 黄 针 荐 部 记名 和 如 


自 上 而 下 计算 时 ， 第 2014 个 0 会 出 现在 哪 一 层 ? 
※ 第 1 个 0 在 第 3 层 , 第 2、3、4 个 0 都 在 第 5 层 。 


两 个 真 值 的 异 或 (XOR : exclusive or》 运 算 规 则 是 “ 当 且 仅 当中 
有 一 个 为 1 时 ， 结 果 为 1， 其 余 情况 为 0”( 攻 四 
上 异 或 运算 
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我 们 只 需要 按照 一行 中 两 六 设置 为 1， 中间 数字 由 上 层 计 算 而 
来 ”这 样 的 规则 ， 就 可 以 生成 帕斯卡 三 角形 。 每 一 行 的 数字 都 用 一 维 数 
组 表示 ， 中 间 的 数组 元 素 通过 异 或 运算 得 出 ，; 人 吉本 册 不 断 半 间 册 下 


一 行 的 数字 。 


普通 曲 帕斯卡 三 铅 形 很 优 关 , 这 个 异 或 运算 三 角形 也 很 优 关 ， 有 一 种 


特别 曲 秩 序 


半 呢 。 


这 里 的 思路 是 一 直 重 复 计 算 ， 直 至 出 现 第 2014 个 0。 用 Ruby 实现 


时 ， 代 码 如 代码 清单 2 


1.01 所 示 。 


代码 清单 21.01 (aq21_01.rpb ) 


SOU = # 0 
las = 8 当 
OWe= ll a 当 


next row = [1] 


while count < 2014 do 


ell = 二 避让 


SOUunt t= 10 
next_ row.push (1) 
Line = 
row = next row 

end 


puts Tine 


# 通过 计算 上 一 行 的 异 或 值得 到 下 一 行 


(row.size - 1).times{|i| 


next row pusn(cea) 


# 统计 到 2014 个 0 时 的 行 


ow 


cell == # 统计 0 出 现 的 次 数 


如 果 单 纯 进行 异 或 运 


算 ， 似 和 刍 也 没 必 要 用 数组 呀 。 


对 。 用 二 进 制 里 的 1 和 0 表示 行 ， 通过 “用 前 一 行 左 移 一 位 后 的 值 与 


该 行 ( 即 “前 一 行 '*〉》 的 值 作 异 或 运算 ”就 可 以 求 得 下 一 行 拘 值 。 
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例 ) 第 6 层 一 “110011 
左 移 一 位 一 1100110 
异 或 值 一 ” 1010101 … 第 7 层 
这 个 思路 的 实现 如 代码 清单 21.02 所 示 。 
代码 清单 21.02 ( q21 02.rpb ) 
count = 0 b 现 的 次 数 


Hon 
aa il # 当前 行 的 行 数 
row = 1 # 当前 行 的 值 ( 二 进 制 码 ) 


while count < 2014 do 


Ea = Eon = 1 # 从 前 一 行 作 异 或 运算 得 到 下 一 行 
SoUunte ow to ooune (on # 统计 0 出 现 的 次 数 
line += 1 

end 

puts line # 输出 到 2014 个 0 时 的 行 


如 果 使 用 其 他 编程 语言 ， 需 要 注意 二 进 制 数 的 处 理 ， 而 如 果 使 用 像 
Ruby 这 样 的 语言 ， 则 可 以 非常 简单 快速 地 处 理 二 进 制 数 。 


除了 用 前 面 的 方法 ,着 眼 于 规律 也 能 解决 这 个 问题 。 相 关 资 料 请 见 
以 下 网 页 。 

数学 的 山 丘 “帕斯卡 三 角形 和 二 进 制 ”? 

https://zh.wikipedia.org/wiki/ 杨 逻 三 角形 


QD 原 书 提供 的 是 日 语文 章 ， 描 述 的 是 帕斯卡 三 角形 ( 杨辉 三 角 ) 的 变种 。 帕 
斯 卡 三 角形 中 某 个 数字 是 上 层 两 个 数字 之 和 ， 而 这 篇 日 语文 章 描述 的 则 是 
某 个 数字 是 其 上 层 两 个 数字 的 异 或 运算 结果 ( 只 会 出 现 0 和 1 )。 本 书 提 供 
网 址 为 中 文 相关 资料 ， 仅 供 参 考 。 译 者 注 
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© Column 让 


编程 必 备 的 文科 和 理科 素养 


提 到 编程 ， 大 部 分 人 觉得 是 偏 理 科 的 。 事 实 上 ， 从 事 编程 工作 的 
并 不 全 是 理科 技术 人 员 。 解 决 工作 问题 时 ， 往 往 需要 写 不 少 规格 说 明 
之 类 的 文档 ， 这 对 擅长 写 文章 的 文科 生 而 言 ， 无 疑 是 比较 有 利 的 。 甚 
至 可 以 说 ， 从 “学 习 语 言 ”这 一 点 来 说 ， 可 能 编程 更 接近 文科 的 思维 
Se 

当然 , 编程 在 很 多 场景 下 也 需要 数学 上 的 直觉 。 从 宏观 上 来 看 ,这 
些 场 景 无 外 乎 “计算 ”和 “ 逮 辑 ”。 Computer 的 其 中 一 个 译 法 是 “ 计 
算 机 ”, 可 想 而 知 “ 计 算 ” 是 多 么 重要 的 功能 。 从 功能 上 来 讲 , 说 计算 
机 几乎 全 是 在 作 计 算 也 不 为 过 。 

从 这 个 意义 上 来 看 ,在 “懂得 各 种 各 样 的 计算 ”“ 能 运用 各 种 公式 ” 
方面 ， 显 然 理 科 式 的 直觉 更 为 重要 一 些 。 像 本 题 中 出 现 的 帕斯卡 三 角 
形 ， 可 能 就 是 注重 规律 的 偏 理 科 的 东西 。 

而 “逻辑 ” 指 的 就 是 解决 问题 时 必 不 可 少 的 逻辑 思考 能 力 。 即 便 
理解 问题 本 身 不 难 , 也 需要 考虑 采取 什么 样 的 步骤 、 用 什么 样 的 方法 、 
如 何 简化 问题 等 。 

希望 从 事 编程 工作 的 人 不 要 老 想 着 “我 是 文科 出 身 的 ”或 者 “我 
是 理科 出 身 的 "， 一 定 要 兼 具 这 两 种 思维 方式 。 
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. 30 HE 
22 不 缠绕 的 纸杯 电话 
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用 绳子 连接 纸杯 制作 “纸杯 电话 ”一 一 这 应 该 勾 起 了 很 多 人 对 理科 
实验 的 回忆 。 如 果 把 强 子 拉 直 ， 对 着 一 边 的 纸杯 讲话 ， 声 音 就 可 以 从 男 
一 边 的 纸杯 传 出 。 

假设 有 几 个 小 朋友 以 相同 间隔 围 成 圆周 ， 要 结对 用 纸杯 电话 相互 通 


话 。 如 采 强 子 交 又 ,很 有 可 能 会 缠绕 起 来 ， 所 以 结对 的 原则 是 不 能 让 强 
了 于 交叉 。 

举 个 例子 ， 如 果 有 6 个 小 朋友 ， 则 只 要 如 加 一 样 结对 ， 就 可 以 顺 
利用 纸杯 电话 通话 。 也 就 是 说 ，6 个 人 的 时 候 ， 有 5 种 结对 方式 。 


) 让] 一 


6 个 人 的 时 候 有 5 种 结对 方式 
求 有 16 个 小 朋友 的 时 候 ， 一 共有 多 少 种 结对 方式 ? 
HIDK 


A 
Q \/ 


vw 


为 简化 对 交叉 曲 判断 ， 请 先 划 分 出 范围 再 进行 里 者。 


a 
Md 
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我 们 可 以 这 样 思考 : 为 使 绳子 不 交叉 ， 只 要 “从 任意 位 置 划分 范围 ， 
并 在 各 自 范 围 中 结对 就 可 以 ”。 不 过 要 注意 ， 每 个 范围 中 的 人 数 必 须 为 
偶数 。 

很 显然 , 2 个 人 的 时 候 有 1 种 结对 方式 。 所 以 ， 在 划分 的 2 个 范围 
中 各 自 计算 结对 方式 ， 再 把 2 个 范围 内 的 结对 方式 数 相 乘 就 可 以 了 。 如 
果 使 用 Ruby， 则 可 以 使 用 动态 规划 算法 像 代码 清单 22.01 这 样 实现 。 


代码 清单 22.01 ( q22_01.rb) 


m6 
pair = Array.new(n / 2 + 1) 
Pans = 


(2 | 
aml 
i.times{|j| 
Ban le = oan a 
} 
} 


puts pair[n/2] 


原来 如 此 。 划 分 成 2 个 范围 后 就 很 好 异 了 呢 。 


使 用 动态 规划 算法 时 ， 处 理 还 很 快 。 


1430 种 


咏 
| 
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二 十 一 点 通 吃 
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赌场 经 典 的 二 十 一 点 游戏 2 了 赢 
中 ,每 回合 最 少 下 注 1 枚 硬币 ， 
赢 了 可 以 得 到 2 枚 硬币 ， 输 了 硬 
币 会 被 收 走 。 

假设 最 开始 只 拥有 1 枚 硬币 ， 

并 且 每 回合 下 注 1 枚 ,那么 4 回 
合 后 还 能 剩余 硬币 的 硬币 枚 数 变 
化 情况 如 医 四 所 示 ， 共 有 6 种 ( 圆 


ED ET 
Qa» 


形 中 间 的 数字 代表 硬币 枚 数 )。 输 赢 赢 
输 


ED ” 


求 最 开始 拥有 10 枚 硬币 时 ,持续 @ 
24 回合 后 硬币 还 能 剩余 的 硬币 枚 数 ©@ 


变化 情况 共有 多 少 种 ? 
能 持续 4 回合 的 情况 有 6 种 


能 用 树 形 图形 表 示 ， 也 就 是 可 以 用 递归 来 搜索 吧 ? 


因为 不 是 求 景 短路 径 ， 所 以 用 深度 优先 搜索 会 比较 简单 呢 。 


要 设计 成 增加 注 戏 回合 数 后 也 能 处 理 的 程序 哦 。 


QD 即 Blackjack， 起 源 于 法 国 的 扑克 有 牌 游戏 ， 参 加 者 要 尽量 使 手中 有 牌 的 总 点 数 达 到 或 是 
接近 21 点 ， 但 不 能 超过 ， 然 后 与 庄家 比较 总 点 数 的 大 小 以 定 输 赢 。 一 一 编者 注 
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如 果 剩 余人 硬币 为 0， 则 无 法 继续 游戏 ， 而 只 要 还 有 1 枚 硬币 ， 游 戏 
就 能 继续 。 如 果 某 回合 获胜 ， 则 硬币 增加 1 枚 ， 落 败 则 减少 1 枚 。 这 道 
题 中 ， ,路 简单 非常 重要 。 

里 只 需要 判断 “游戏 是 否 进行 到 了 题 干 要 求 的 回合 ”以 及 “是 否 
En 


代码 清单 23.01 ( q23_01.rb ) 


@memo = {} 


def game (coin, depth) 
return onemolleoin deetnlll lf omemo askKkey? lcecun deptnl) 
je (©) ms een SE 
Eelurn eeren 三 三 证 
win = game (coin + 1，depth - 1) # 获胜 时 
Teose Seoanal(aorm desen ne 时 
@memo[[coin, depth]] = win + lose 

end 


puts game (10, 24) 


而 且 还 用 了 内 存 化 方法 ， 速 度 很 快 呢 。 


实现 。 


16051010 种 
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完美 的 三 PT 
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. EO HEE 
QQ 


对 喜爱 棒球 的 少年 而 言 , “三振 出 
局 ”和 (上 国 辐 ) 是 一 定 要 试 一 次 的 。 这 是 
一 个 在 本 圣 上 放置 9 个 靶子 ， 击 打 投 手 
投 来 的 球 ， 命 中 靶子 的 游戏 。 据 说 这 可 
以 磨 练 球 手 的 控制 力 。 

现在 来 思考 一 下 这 9 个 靶子 的 击 打 
顺序 。 假 设 除 了 高 亮 的 5 号 靶子 以 外 ， 
如 果 1 个 靶子 有 相 邻 的 靶子 ， 则 可 以 一 
次 性 把 这 2 个 靶子 都 击落 。 辟 如， 如 
国 重 所 示 ， 假 设 1 号 、6 号 、9 号 已 经 
被 击落 了 ， 那么 接 下 来 ， 对 于 “2 和 
3”“4 和 7”“7 和 8” 这 3 组 靶子 , 我 们 
就 可 以 分 别 一 次 性 击落 了 。 


求 9 个 靶子 的 击落 顺序 有 多 少 种 ? 这 里 
假设 每 次 投手 投球 后 , 击 球 手 都 可 以 击 中 一 个 。 [加 1 号 、6 号 、9 号 已 经 被 击落 
靶子 。 


能 一 次 击落 2 个 直子 …… 这 一 
能 用 了 吧 ? 


(ES) 
ED 
篇 当然 。 忌 如 1 旦 被 击落 后 ， 与 1 旦 靶子 相 邻 的 地 方 就 不 能 再 一 况 击落 
Ee 2 个 了 。 
oe 


@@ 即 Strikeout， 源 自 棒球 ， 累 计 两 个 好 球 时 ， 第 三 球 击 球员 未 击 中 或 未 击 情况 下 
(好 球 未 击 )， 判 击 球员 三 振 出 局 ， 即 为 这 名 球员 下 场 ， 更 挽 下 一 名 击 球 手 。 
一 一 编者 注 


Q24 ”完美 的 三 振 出 局 | 091 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


问题 的 关键 在 于 ,已 经 击落 的 靶子 就 不 能 再 次 击 中 。1 号 被 击落 后 ， 
“1 和 2”“1 和 4” 就 不 能 再 适用 “一 次 性 击落 ”这 种 情况 了 。 反 过 来 
说 ， 如 果 一 次 性 击落 “1 和 2”， 则 1 号 和 2 号 靶子 就 都 不 能 再 使 用 了 。 
为 实现 这 样 的 思路 ， 这 里 用 数组 来 表示 击 打 方法 。 

另外 ， 无 论 是 按照 1 号 ~3 号 的 顺序 击 球 ， 还 是 按照 3 号 ~1 号 的 顺 
序 击 球 ， 这 之 后 的 模式 都 是 一 样 的 。 因 此 可 以 把 已 遍历 的 靶子 内 存 化 ， 
从 而 优化 处 理 速 度 。 壁 如 用 Ruby 可 以 像 代码 清单 24.01 这 样 实现 。 


代码 清单 24 .01 ( q24_01.rb ) 


# 列举 能 一 次 击落 2 个 靶子 的 组 合 


board Ll 2 Me Sl Do Ee ea en 
wy a ey Gy ss le Ss © 
# 增加 逐个 击落 的 方法 


LowDee (eo | 
board.push ( [i]) 
} 


@nemo (0) 
eermS Ceel(looone) 
# 如 果 已 经 全 部 遍历 完 ， 则 输出 这 个 值 
return @memo [boardq] if @memo.has key? (board) 
cnt =°0 
board.each{ |b| 
# 排除 含有 已 经 击落 数字 的 组 合 
next board = board.select{|i| (b & i).size == \0} 
cent += strike(next board) 
} 
@memo [board] = cnt 
end 


puts strike (board) 


通过 数组 与 数组 之 间 的 AND 运 宽 ， 可 以 杷 多 个 数组 的 共同 元 素 提 


取出 来 。 通 过 只 使 用 没有 共同 元 素 的 数组 , 就 可 以 保证 不 重复 统计 已 
击落 的 靶子 。 


798000 种 
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即便 系 得 很 紧 ， 鞋 带 有 时 候 还 是 免不了 会 松 掉 。 运 动 鞋 的 鞋 带 有 很 多 
时 党 的 系 法 。 下 面 看 看 这 些 系 法 里 ， 鞋 带 是 如 何 穿 过 一 个 又 一 个 鞋 带 孔 的 。 

如 国 因 所 示 的 这 几 种 依次 穿 过 12 个 鞋 带 孔 的 系 法 很 有 名 ( 这 里 不 
考虑 鞋 带 穿 过 鞋 带 孔 时 是 自 外 而 内 还 是 自 内 而 外 )。 


鞋 带 的 系 法 示例 


这 里 指定 鞋 带 最 终 打 结 固定 的 位 置 如 国 回 中 的 前 两 种 系 法 所 示 ， 即 
固定 在 最 上 方 ( 靠近 脚 腕 ) 的 鞋 带 孔 上 ， 并 交错 使 用 左右 的 土 带 孔 。 


求 鞋 带 交 叉 点 最 多 时 的 交叉 点 个 数 。 璧 如 国 攻 园 左 侧 的 系 法 是 5 个 ， 正 中 间 
的 这 种 系 法 是 9 个 。 


如 何 判 定 交 叉 是 一 个 难点 呢 。 


先 用 较 小 的 数字 试验 ， 看 看 在 什么 条 件 下 会 交叉 吧 。 
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鞋 带 打 结 的 两 点 已 经 固定 ， 剩 下 的 就 是 交错 选择 剩 下 的 鞋 带 孔 。 从 
左 侧 开始 选择 有 5! (5 的 阶乘 ) 种 选择 方法 ， 从 右 侧 开 始 也 有 5! 种 。 根 
据 选 择 的 顺序 可 以 得 到 系 法 ， 这 时 ， 如 何 计算 某 一 种 系 法 的 交叉 点 个 数 
很 关键 。 可 以 自 上 而 下 ( 从 脚 腕 到 脚尖 的 方向 ) 为 左 侧 和 右 侧 的 每 一 个 
鞋 带 孔 标 记 0~5 的 数字 ， 通 过 数字 大 小 来 判断 是 否 交叉 。 

举 个 例子 ， 从 左 0 到 右 1 穿 过 的 鞋 带 会 跟从 左 1 到 右 0 穿 过 的 鞋 带 
交叉 。 也 就 是 说 ， 数 字 大 小 变化 相反 时 会 产生 交叉 点 。 用 Ruby 实现 这 
个 思路 时 ， 代 码 如 代码 清单 25.01 所 示 。 


代码 清单 25.01 (q25_01.rb ) 


N = 6 
max cnt = 0 
(1..N - 1).to a.permutation(N - 1){|1| # 左 侧 的 顺序 
(1..N - 1) .to a.permutation(N - 1){|r| # 右 侧 的 顺序 
# 设置 路 线 
Bath =°[] 
Tefte = 


een SS 0 

Wmesgu 
pathn push(lLleret riontl)) 
ee Ss 
pacnmeushilhlesce oncl 
| 

} 


Bacheeusrnesc on 


# 判断 路 线 是 否 相交 

cnt = 0 

(N* 2 - 1).times{|i| 
(Eo 2 2 

Senet= (a nah 
(Sacnmen ean 

} 

} 

masenente = Inasent eens max 

} 
} 


puts max_ cnt 
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交叉 的 判断 是 使 用 乘法 来 作 的， 这 是 为 什么 呢 ? 


在 比较 在 侧 鞋 第 孔 对 应 数字 和 右 侧 鞋 钊 孔 对 应 数字 拘 大 小 时 ， 这 里 
是 取 这 两 侧 数 字 的 莽 数 并 判断 正 负 。 如 果 有 一 方 是 负数 , 则 相 乘 得 到 
的 积 也 会 是 负数 ， 这 样 就 可 以 判 上 断 是 否 相交 了 。 


这 样 系 用 乘法 的 确 很 方便 。 不 过 ， 如 果 鞋 钟 孔 增多 ， 处 理 时 间 好 像 
就 会 很 长 。 


本 题 中 两 侧 各 6 个 鞋 带 孔 , 这 时 候 计算 可 以 在 1 秒 之 内 完成 。 但 如 
果 两 侧 鞋 带 孔 个 数 变 为 7， 那 么 计算 时 间 将 会 超过 10 秒 。 如 果 再 进 一 
步 增加 个 数 ， 那 花费 的 时 间 就 会 更 多 。 

那么 能 不 能 解决 这 个 问题 呢 ? 事实 上 , 如果 改变 鞋 带 孔 的 个 数 ， 你 
会 发 现 答案 的 变化 很 有 规律 。 两 侧 鞋 带 孔 的 个 数 分 别 是 2, 3, 4, … 时 ,对 
应 的 交叉 点 个 数 分 别 是 1, 6, 15, 28, 45, 66, ,…。 取 交叉 点 个 数 之 间 的 差 ， 
则 是 5, 9, 13, 17, 21, …。 这 些 差 值 是 一 个 等 差 数列 , 前 后 相 邻 两 个 数 之 
间 相 差 4。 像 这 样 发 现 规律 也 是 很 重要 的 思考 方式 哦 。 
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算法 题 的 出 题 方 法 


自从 为 “本 周 算法 ”栏目 出 题 之 后 ， 常 常 有 人 问 我 “你 是 怎么 想 
出 这 些 算 法 问题 的 ?” 每 星期 出 一 道 新 的 问题 , 实现 解法 并 准备 示例 答 
案 和 说 明 等 真是 一 件 若 差事， 而 且 出 题 之 后 还 要 评分 。 

老实 说 ， 我 并 没有 一 种 固定 的 出 题 方式 。 有 时 候 骑 着 自行 车 忽然 
有 了 想法 ， 有 时 候 坐 在 桌 前 四 下 看 看 就 有 了 思路 。 我 有 时 候 也 会 看 看 
书 ， 看 看 问题 ， 思 考 是 不 是 有 更 好 的 方法 。 有 时 候 ， 为 了 以 “内 存 
化 "” “递归 ”来 出 题 ， 我 还 会 根据 答案 倒 推 问题 。 

不 过 , 唯一 可 以 确定 的 方法 就 是 “要 随时 随地 思考 如 何 出 题 ”。 无 
论 在 做 什么 , 潜意识 里 都 问 问 自己 “这 个 能 作为 算法 题 吗 "。 有 时 候 盯 
着 桌 上 的 日 历 、 键 盘 的 键 位 排 布 ,我 都 会 想 这 能 不 能 作为 出 题 的 依据 。 
为 其 他 需求 编程 时 也 会 思考 ， 就 连 喝酒 我 都 能 想 出 问题 。 

我 比较 注意 的 是 “努力 开拓 自己 的 视野 "。 虽 然 研读 专著 可 以 加 深 
对 某 个 领域 的 理解 ， 但 并 不 能 拓宽 视野 。 我 会 读 各 种 领域 的 杂志 以 保 
持 开阔 的 眼界 。 看 运动 竞技 的 时 候 ， 我 也 习惯 于 从 各 种 角度 来 看 ， 而 
不 拘泥 于 特定 的 运动 或 者 队伍 。 

大 家 有 什么 课题 的 时 候 , 也 可 以 试 试 “随时 随地 思考 "。 有 时 候 我 
们 会 从 看 上 去 与 课题 毫 无 关系 的 事物 上 瞬间 得 到 灵感 。 
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高 效 的 立体 停车 场 
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最 近 ， 一 些 公寓 等 建筑 也 都 配备 了 立体 停车 场 。 立 体 停 车 场 可 以 充分 
利用 窗 小 的 土地 ， 通 过 上 下 左右 移动 来 停车 、 出 库 ， 从 而 尽 可 能 多 地 停车 。 
现在 有 一 个 立体 停车 场 ， 车 出 库 时 是 把 车 往 没 有 车 的 位 置 移动 ， 从 
而 把 某 台 车 移动 到 出 库 位 置 。 假 设 要 把 左上 角 的 车 移动 到 右 下 角 ， 试 找 


ED BETTS 
Qe 


出 路 径 最 短 时 的 操作 步 数 。 举 个 例子 ， 在 3 x2 的 停车 场 用 如 国 图 所 示 
的 方式 移动 时 ， 需 要 移动 13 步 。 
@|OlO @|OlO @|OlO OlO GO 
Oo ol Om oomeoo™ieoo 
了 
OlO OlOIlO olOlO GOIO OlO 
O@o O00 oeo eolo 
4 
of TO OlO GOIO GOIO 
O@O™oeo™moe ol le 
车 从 左上 角 移动 到 右 下 角 的 示例 1 ( 13 步 ) 
不 过 ， 如 果 用 如 国 国 所 示 的 移动 方法 ， 则 只 需要 移动 9 步 。 
@|OlO @|o @| |O @|O ol@o 
Oo oo ooo™ oo oo 
县 
olOlO GOIO OlO of Io ol@o 
ol l@ol@ oe@o0e o.oo io 


到 车 从 左上 角 移动 到 右 下 角 的 示例 2 ( 9 步 
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求 按 最 短路 径 移 动 时 ， 广 度 优先 搜索 是 一 种 行 之 有 效 的 方法 。 如 果 
找到 了 最 终 的 移动 方法 ， 就 可 以 立刻 停止 搜索 ， 这 样 可 以 大 幅 减 少 搜索 
时 间 。 


解 题 思路 是 从 停车 场 最 后 的 状态 倒 推 ， 求 回 到 最 初 状态 的 最 短路 
径 。 已 经 试 过 的 路 径 如 果 不 符合 条 件 , 即 可 确定 为 不 是 最 短路 径 , 所 以 
需要 标记 已 搜索 路 径 ， 避 免 其 被 重新 搜索 到 。 


停车 场 停 车 状态 用 二 维 数组 表示 ， 给 边界 设置 数字 9 作为 标记 ， 其 
他 车 的 位 置 设置 为 1， 目标 车 辆 位 置 设 置 为 2。 另 外 ， 没 有 车 的 位 置 通 
过 参数 的 形式 传递 。 用 Ruby 实现 时 ， 这 个 思路 如 代码 清单 26.01 所 示 。 


代码 清单 26 .01 (q26_01.rpb ) 


WH = T0010 

# 设置 停车 场 状态 ( 用 数字 9 作为 边界 ) 

parking = Array.new(W + 2) {Array.new(H + 2){1}} 
(W + 2) .times{|w| 


Ban anla ll 
} 
(H + 2) .times{|h| 

Danknnolol ask l= 


} 


# 目标 是 左上 角 和 车 的 状态 
@goal = Marshal.load (Marshal .dump (parking)) 
@geoall[l1il Di = 2 


# 开始 位 置 是 右 下 角 的 状态 
start = Marshal.load (Marshal .dump (parking)) 
Eileevale lll [al 


defeSsearen(prev depehny) 
target = [] 
prev.each{ |parking, w, hl| 


# 上 下 左右 移动 


Woo teacn lw 
mW nsw dw he 
TE(arckinoglnwlanN tnen 
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# 如 果 是 边界 以 外 的 情况 ， 则 检查 是 否 已 经 遍历 
temp = Marshal.load (Marshal .dump (parking)) 
templ[w] [h], temp[nw] [nhl = temp [nw] [nh], temp [w] [hl] 
Em oloaqhasakeye (LEemo nw ean enenm 
# 把 未 遍历 的 位 置 作为 遍历 目标 
target .push(ltempr nw nnl) 
@Llog[lltemp, nw, nhll= depth 工 
end 


return if target.include?([@goal, W, H]) 

# 广度 优先 搜索 

search(target, depth + 1) if target.size >°0 
end 


# 记录 已 搜索 部 分 

@log = {} 

@ueolllls ene 
@log[[start, W - 1, H]] 
# 从 开始 位 置 开始 搜索 
search( [lstart, WwW. H = 1), lsatart, Ww = 1 Hj], 0) 
# 输出 到 达 目 标的 搜索 次 数 

puts @log[ [egoa1l，NW，H]I] 


| 
Sy 


多 维 数 组 所 有 元 素 的 方法 。 如 果 是 索引 ， 那 么 即便 复制 也 只 是 
索引 ， 所 以 要 复制 值 就 要 这 么 写 。 


下 面 的 代码 清单 26.02 这 种 实现 可 以 将 处 理 时 间 缩 短 到 40% ( 人 处理 
逻辑 没有 改变 ， 故 这 里 略 去 注释 )。 


Q26 ”高 效 的 立体 停车 场 | 099 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


代码 清单 26 .02 ( q26_02.rb ) 


WHEEL07 10 
Par = 


@goal = parking.clone 
@goal[IW + 1] = 2 
start = parking.clone 
stortl W032 


derysearchn(prev asp 


target = [] 
prev.each{ |parking, pos| 
[=1, 1, W+1, -WW= 1].eacn{|al 
qd meses 
I (aera Ue ©) Mel 


temp = parking. elone 
temp lagadl templpeosI templposl ee cemplaead 
if "Iolog.nasi key? (ltemp, qdl) then 
Levgec usmlemopcel 
@loglltemp.ddll = "depth + 1 
end 


return if target.include?([@goal, (W+ 1) * (H+ 1) - 2]) 
search (target, depth + 1) if target.size > 0 


end 

@log = {} 

@logllsEtaLe w= 

@logNlsEae (0 

Searenoils ea 2 lca 0) 
puts @log[[@goal, (W + 1) * (H+ 1) - 2]] 

2 区 69 步 
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在 像 日 本 这 样 车 辆 靠 左 通行 的 道路 上 ， 开 和 车 左 转 比 右 转 要 和 舒服 些 。 
为 不 用 担心 对 面 来 车 ， 所 以 只 要 一 直 靠 左 行驶 ， 就 不 用 思考 怎么 变 道 。 

那么 ， 现 在 来 想 一 下 如 何 只 靠 直行 或 者 左 转 到 达 目 的 地 。 假 设 在 像 
国 国 一 样 的 网 状 道 路 上 ， 我 们 只 能 直行 或 者 左 转 ， 并 且 已 经 通过 的 道路 
就 不 能 再 次 通过 了 。 此 时 人 允许 通行 道路 有 交叉 。 

请 思考 一 下 从 左下 角 去 右上 角 时 ， 满 足 条 件 的 行驶 路 线 共 有 多 少 
种 。 举 个 例子 ， 如 有 果 是 像 国 回 这 样 3 x 2 的 网 状 道路 ， 则 共有 4 种 行驶 


局 曙 鳃 时 


道路 为 3x2 网 状 道 路 时 


Q oo :oo 
2 


求 6x4 的 情况 下 ， 共 有 多 少 种 行驶 路 线 ? 


如 何 表 示 左 转 是 一 个 难点 啊 。 如 果 车 向 上 开 ， 则 左 转 是 就 是 往 左 开 ; 
如 果 车 朝 在 开 ， 则 左 转 就 是 向 下 开 。 


或 主 可 以 用 数组 表示 “上 ”“ 在 ”“ 下 ”“ 右 ”。 只 要 下 村 加 1， 如 果 当 
前 是 向 上 ， 则 下 一 步 就 是 左 ; 如 果 当 前 向 在 ， 则 下 一 步 就 是 向 下 3。 


就 是 这 样 。 右 的 下 一 个 是 上 ， 只 需要 杷 下 柠 归 黑 就 可 以 了 。 还 有 一 种 
方法 是 “加 1 后 除 以 4 取 余 数 "。 
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思路 
这 个 问题 的 关键 在 于 ， 已 经 通过 的 道路 不 能 再 次 通过 。 也 就 是 说 ， 
需要 把 已 经 通过 的 位 置 记录 下 来 。 另 外 ， 只 能 直行 或 者 左 转 ， 因 此 也 要 
保存 上 一 次 移动 的 方向 。 
这 里 ,我 们 把 “ 横 线 和 竖 线 是 否 已 经 通过 ”分 别 保存 到 数组 里 。 然 
后 ， 用 二 进 制 数 表示 各 个 方 格 的 横 线 和 坚 线 是 否 已 经 使 用 过 ， 比 如 EI 
的 状态 就 可 以 保存 成 加 这 样 的 数据 。 


用 二 进 制 数 保存 状态 的 示例 


1011 110 
0010 Th 
110 


移动 示例 


也 就 是 说 ， 如 国 四 所 示 ， 竖 线 中 ,第 1 层 只 有 最 左 端 、 最 右 端 以 
及 右 数 第 2 条 是 已 通过 的 道路 ， 因 此 我 们 在 这 些 位 置 标 记 1。 同 样 
地 ， 第 2 层 只 有 右 数 第 2 条 是 已 通过 的 道路 ， 因 此 我 们 只 在 这 个 位 置 
标记 1。 

然后 ， 按 照 前 行 方向 ， 用 递归 遍历 还 没有 走 过 的 所 有 道路 。 用 
Ruby 实现 这 个 思路 时 ， 代 码 如 代码 清单 27.01 所 示 。 


代码 清单 27.01 (gq27_01.rb ) 


We Hm 0 
DR = [10 将 |] ， 三 羡 ，01， 6，= 二 ] ， [二 ，0]1 站 节 计 六 向 
left = [0] * 日  # 用 二 进 制 表示 菜根 竖 线 是 否 已 通过 

# 用 二 进 制 表示 某 根 横 线 是 否 已 通过 


def search(x, y, dir, left, bottom) 
TeseeH lef elone 
bottoml = bottom clone 
# 已 经 越界 或 者 已 通过 的 情况 下 无 法 前 行 


if (dir == 0) || (dir == 2) then # 前 后 移动 的 情况 
BO = DT ee 
recur oOo EPosn ol rR 
ee O Le Lone Tle & (L <e 5) Sy 
left 1l[pos] |= (1 << x) # 把 坚 线 标记 为 已 通过 
else # 左右 移动 的 情况 
Bos = DIRUII LO ma 
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SORT 
ED0EEEDeiecmn 本 Be 星人 柯 时 二 <) 呈 和 
Bottom Ilo (Tay) # 把 横 线 标记 为 已 通过 
erdl 
nexte x nexty 7 DIERIG ONY DIR 
return 1 if (next x == W) && (next y == H) # 到 达 B 点 则 结束 
cent =00 
# 前 进 
IE 天 EX Ole eft bouteoml 
# 左 转 
as 二 cl 本 用 大志 征用 区 二 
EN 
cnt 
ene 
puts search(0，0，3，1eft，bottom) # 从 起 点 右 转 开始 


把 移动 方向 用 数组 表示 之 后 代码 就 简单 了 3。 看 这 个 代码 就 好 像 自己 
在 加 车 一 样 明了 了 ， 太 人 铎 服 了 。 


实际 调试 的 时 候 ， 像 这 样 的 代码 即便 代码 量 更 大 些 ， 也 很 好 读 卉 
呢 。 


只 


二 2760 种 
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去 参加 学 习 会 或 者 研讨 会 吧 


如 果 住 在 东京 ， 基 本 上 每 天 都 能 参加 各 种 学 习 会 和 研讨 会 。 这 些 
学 习 会 和 研讨 会 规模 大 小 不 一 ， 类 型 也 各 不 相同 ， 而 且 很 容易 就 能 获 
取 相 关 信 息 。 本 人 一 直 尽 可 能 多 地 参加 这 些 活动 。 我 还 是 上 班 族 的 时 
候 ， 就 每 个 月 雷 打 不 动 地 请 一 天 假 去 参加 研讨 会 。 

这 里 说 的 “请 一 天 假 ” 很 重要 。 向 公司 申请 参加 研讨 会 时 ， 肯 
会 有 “无 论 如 何 也 要 和 自己 的 工作 扯 上 关系 ”这 样 的 意识 ， 之 后 还 
整理 相关 报告 。 这 样 一 来 ， 我 们 可 能 就 没 办 法 随便 选取 研讨 会 了 。 

和 上 司 聊 起 去 参加 学 习 会 或 者 研讨 会 的 时 候 ,我 们 可 能 会 听 到 “不 
会 有 什么 收获 的 ， 还 是 抓紧 时 间 工 作 吧 ”这 样 的 反对 意见 。 的 确 ， 参 
加 学 习 会 或 者 研讨 会 能 学 到 的 东西 不 多 。 只 花 一 天 时 间 ， 甚 至 只 有 几 
个 小 时 ， 还 真是 没 办 法 学 到 很 关键 的 东西 。 

当然 ， 既 有 非常 有 意义 的 研讨 会 ， 也 有 没有 意义 的 研讨 会 。 但 我 
觉得 这 都 无 所 谓 ， 重 要 的 是 我 们 自己 不 要 觉得 这 件 事 毫 无 意义 。 带 着 
“无 论 如 何 都 要 让 自己 成 长 一 点 ”这 样 的 目标 参加 时 , 研讨 会 的 意义 就 
变 得 不 一 样 了 。 即 便 只 是 去 体会 讲师 的 说 话 方式 ,或 者 会 场 的 氛围 也 
是 极 好 的 。 对 学 习 会 、 研 讨 会 上 的 东西 ， 不 好 的 地 方 引 以 为 鉴 ， 好 的 
方面 取长补短 ， 这 就 足够 了 。 

请 一 定 积极 地 参加 学 习 会 或 者 研讨 会 。 我 们 不 仅 可 以 学 到 将 来 或 
许 能 派 上 用 场 的 东西 ， 还 有 可 能 结识 到 志同道合 的 朋友 。 


104 | 第 2 章 初级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


: ?0 20 分 名 
Se ee 

28 社团 活动 的 最 优 分 配方 案 
ppIIIIIIIIII III I I III I III I II II II II III II II I II II II III IIIIIIIIIIIIIIIIIIIIIIIIIIIIN, 
对 学 生 而 言 ， 社 团 活动 可 能 比 学 习 还 更 重要 。 假 设 你 即将 成 为 某 新 
建 学 校 的 校长 ， 学 校 里 有 
150 名 想 要 运动 的 学 生 ， 请 
你 考虑 要 为 他 们 准备 哪些 


社团 活动 棒球 11000m? 
社团 活动 。 
你 调查 各 项 运动 所 需 


正和 各 个 社团 所 需 的 场地 面积 和 预计 人 数 


的 场地 面积 后 得 到 了 如 [a go 
攻 到 所 示 的 表格 。 在 确定 活 时 900m2 
动 场 地 时 ， 也 要 考虑 各 个 1800m2 
社团 的 人 数 。 1000m2 
向 槛 球 7000ms 


100m? 


请 选择 一 些 社团 活动 ， 社 团 总 人 数 不 能 超过 150 人 ， 还 要 使 场地 面积 最 大 。 
求 这 个 最 大 的 面积 的 值 。 


HDR 
eo 因为 不 知道 学 生 景 后 会 小 哪 种 社团 ， 所 以 要 将 所 需 的 场地 面积 景 
人 六 @ oy 


“ 求 社团 每 个 人 平均 所 占 曲 场地 面积 ”这 种 方法 好 像 挺 快 曲 啊 …… 


可 是 这 样 不 一 征 能 得 出 景 大 的 场地 面积 哦 。 
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在 有 限 的 人 数 范围 内 ， 选 择 什么 样 的 社团 才能 使 所 需 的 场地 面积 
大 呢 ? 最 简单 的 思路 就 是 选择 几 个 社团 ， 从 总 人 数 不 超 过 150 人 的 社 
组 合 中 选 出 场地 面积 最 大 的 组 合 ， 那 就 是 最 终 的 答案 。 

这 里 可 以 依次 增加 社团 个 数 ， 并 搜索 满足 条 件 的 社团 组 合 。 用 
Ruby 实现 时 ， 代 码 如 代码 清单 28.01 所 示 。 


琶 没 


代码 清单 28 .01 ( q28_01.rb ) 


cuts Se | Eo Zoe lieve ero reo eel Eero os ISOUU el 
Liao0, T6000. 5 70 200. Lo ol ave, Tel 
N = 150 


max = 0 
# 按 顺序 选择 社团 个 数 
Tto(elu ee 
club.combination(i)!{|ary| 
# 已 选择 社团 人 数 满足 条 件 时 
TE ey ma (eeen 


max = [ary.map{|il| ir0l}.inject(:+), max] .max 
end 
} 
} 
puts max 


这 样 的 话 很 简单 呆 。 仅 仅 是 改变 社团 个 数 ， 统 计 社 团 人 数 ， 满 足 条 
件 时 按 顺 序 判 断 场 地 面积 是 否 景 大 而 已 。 


不 过 当 社 团 个 数 增加 时 ， 处 理 时 间 会 一 下 子 变 长 。 


像 本 题 这 样 有 10 个 社团 的 时 候 没什么 问题 ， 如 果 社 团 个 数 超过 了 
15， 这 个 程序 就 会 很 赐 ， 几 竺 无 法 处 理 。 下 面 常 试 优化 一 下 吧 。 
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像 这 次 这 样 的 问题 被 称 为 “背包 问题 "Db。 用 内 存 化 、 动 态 规 划算 法 
等 都 可 以 实现 高 速 处 理 。 

首先 ， 如 果 选 了 第 1 个 “棒球 ”, 则 场地 面积 增加 11000; 如 果 没 有 选 ， 
则 增加 0。 同 样 ， 选 了 第 2 个 “足球 ”， 则 场地 面积 增加 8000; 如 果 没 
有 选 则 增加 0。 如 果 同 时 选 了 棒球 和 足球 ,， 则 场地 面积 为 两 者 面积 相 加 
得 到 的 值 。 

然后 ， 根 据 学 生 人 数 准备 数组 并 统计 。 举 个 例子 ， 国 四 表示 选择 
棒球 和 足球 时 的 数组 变化 。 同 样 地 统计 所 有 社团 后 ,我 们 就 可 以 得 到 总 
人 数 不 超过 150 人 时 的 场地 面积 的 最 大 值 。 


0 本 是 国王 0 
初始 状态 0 | 0 | o | o | oololololololololiolo|lo 


棒球 0 0 0 0 0 0 0 0 0 |11000| 0 0 0 0 0 0 


足球 0 0 0 0 0 |8000| 0 0 0 |11000| 0 0 0 |19000| 0 0 


选择 棒球 和 足球 时 的 数组 


如 果 本 题 用 动态 规划 算法 优化 ， 则 如 代码 清单 28.02 所 示 。 


代码 清单 28.02 ( q28_02.rb ) 


CTUDEE 才 由 四 OUR OILSOOOREOIE 了 007 2 leo0020lio00 al 
eee 51 nooo Te lzooo2on, oo T1000 300 L121 
N= 150 


area = Array.new(club.size + 1) {Array.new(N + 1){0}} 
(club.size - 1) .downto(0){|i| 
(人 + 1) .times{|j| 
TE ol len 


area[i]l [j] = area[i + 1] [j] 
else 
areallanll = area 
areal[i + 1][j - club[i] [1]] + club[i] [0]] .max 
end 
} 
b 


puts area[0] [N] 


四， 即 Knapsack Problem， 问 题 的 名 称 来 源 于 如 何 选 择 最 合适 的 物品 放置 于 给 定 
背包 中 。 问 题 可 以 描述 为 : 给 定 一 组 物品 ， 每 种 物品 都 有 自己 的 重量 和 价格 ， 
在 限定 的 总 重量 内 ， 我 们 如何 选择 ， 才 能 使 物品 的 总 价格 最 高 。 一 一 编者 注 
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如 果 用 这 个 方法 ， 即 便 社 团 个 数 增加 ， 也 能 在 一 上 间 处 理 完毕 。 


昌 然 代 码 很 痪 洁 ， 但 逻辑 比 之 前 复杂 了 ， 不 好 理解 。 


那 就 党 试 画图 来 推演 数组 的 变化 吧 。 


内 存 化 的 方法 则 是 把 尚未 选择 的 社团 列表 和 剩余 人 数 作为 参数 传 
入 ， 具 体 如 代码 清单 28.03 所 示 。 


代码 清单 28.03 ( q28_03.rb ) 


0 
[a ed UUSEETSIR [zhoxodo ro a Lalor Uo [Soa a 


@memo = {} 
def search(club, remain) 
return @memo [ [club, remain]] if @memo.has key?([club, remain]) 
max = 0 
club.each{ |c| 
# 如 果 剩 余人 数 还 足以 选择 新 的 社团 
wremanme elu 0 Enem 
max iclojli searen(elob el remam elu ma ma 
end 
】 
@memo[[club, remain]] = max 
end 


Pues searech(eluo L150) 


男 外, 已 知 的 优化 方法 还 有 分 枝 限 界 法 ‘branch and bound> 字 。 


28800m? 
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9 合成 电阻 的 黄金 分 割 比 


pppIIIIIII IIIII III II II I IIII I II I I II I II II I I I II II III II I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


我 们 在 物理 课 上 都 学 过 
“电阻 "， 通 过 把 电阻 申 联 或 者 一 Mr 一 AM 
并 联 可 以 使 电阻 值 变 大 或 者 变 串联 ， R1+R2+R3 
小 。 电 阻 值 分 别 为 R1、R2 、R3 
的 3 个 电阻 串联 后 ， 合 成 电阻 
的 值 为 R1 + R2 + R3。 同样 3 个 
电阻 并 联 时 , 合成 电阻 的 值 则 为 
“倒数 之 和 的 倒数 ”( [SEE )。 A 

现在 假设 及 个 电阻 值 为 a J 
19 的 电阻 。 组 合 这 些 电阻 ,使 
ea 比 
1.6180339887…。 举 个 例子 ， 当 n = 5 时， 如果 像 加 图 这 样 组 合 ， 则 可 
以 使 电阻 值 为 1.6。 


Q ED HEED 
2 


计算 合成 电阻 的 电阻 值 


当 n = 5 时 接近 黄金 分 割 的 组 合 示例 


求 n = 10 时 ， 在 组 合 电 阻 后 得 到 的 电阻 值 中 ， 最 接近 黄金 分 割 的 数值 ， 请 
精确 到 小 数 点 后 10 位 。 


in 包 
HY A 
人 


关键 在 于 ， 并 联 拘 电 路 内 部 还 可 以 有 并 联 。 
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如 果 仅 仅 是 串联 ， 那 问题 很 简单 ， 直 接 作 加 法 就 可 以 了 ， 问 题 在 于 
并 联 。 如 果 同 时 并 联 的 电阻 个 数 不 同 ， 计 算 方法 也 会 发 生变 化 。 同 时 ， 
并 联 的 电路 内 部 可 能 还 有 并 联 的 电阻 。 

这 里 用 数组 来 表示 并 联 电阻 。 男 外 ， 我 们 还 可 以 把 n 个 电阻 组 合 可 
能 得 到 的 总 电阻 值 保存 到 一 个 数组 里 ， 用 于 递归 运算 。 这 样 一 来 ， 我 们 
就 可 以 进行 内 存 化 ， 实 现 高 速 处 理 了 。 并 联 时 ， 我 们 会 遇 到 这 样 的 问 
题 :“ 应 该 以 几 个 电阻 为 单位 来 分 组 ?” 璧 如 并 联 4 个 电阻 时 ， 有 必要 考 
虑 下 列 几 种 情形 。 

。 1 个 1 组 , 分 为 4 组 

e 按照 1 个 、1 个 、2 个 分 组 ， 最 后 2 个 或 者 串联 ， 或 者 并 联 

e 按照 1 个 、3 个 分 组 ，3 个 的 这 组 或 者 串联 ， 或 者 并 联 

e 按照 2 个 、2 个 分 组 ， 每 组 内 部 或 者 串联 或 者 并 联 


首先 ， 为 总 结 出 分 组 模式 ， 这 里 把 电阻 排 成 一 排 并 分 组 。 举 个 例子 ， 
如 果 有 4 个 电阻 ， 则 分 割 点 有 3 个。 分 组 就 是 考虑 如 何 应 用 这 3 个 分 割 点 
(BE ). 


1 个 1 组 , 分 为 4 组 
按照 于 个 2 个 分 组 
按照 1 个 、3 个 分 组 


按照 2 个 、 2 个 分 组 


sD | l= 
> 


4 个 电阻 的 排列 情况 
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用 Ruby 实现 时 ， 代 码 如 代码 清单 29.01 所 示 。 


代码 清单 29.01 (q29 01.rb ) 


# 计算 数组 的 直 积 
def product (ary) 
Eesult = am od 
luoeolar yze ee 
resulte result produet(eny ls 


result.map{|r| r.flatten)} 


# 计算 并 联 时 的 电阻 值 
def paralle (ary) 

ol /eve ome | a Too /le ne 

Rational(1, ary.map{|i| Rational(1, i)}.inject(:+)) 
Stel 


@memo = {1 => [1]} 
def cade 
return @memo[n] if @memo.has key? (n) 
# 串联 
result = cale(m TT mapOl a 
# 并 联 
| 
# 设置 并 联 时 的 分 割 点 个 数 
EU 从 
(ola eomolnatiomn i al 
Bos =0 
r= [] 
ary.size.times{|j| 
r.push(ary[j] - pos) 
os =onsyalenl 
b 
oe = [oe 
cumels-se) = 1 


} 

# 递归 地 设置 分 割 位 置 

keys = cut.keys.map{|c| 
c.map{|e| calc(e)} 


# 计算 电阻 值 
keys.map{|k| product (k)}.each{ |k| 
k.each{|vv| result.push(parallel (vv))} 
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} 
} 


@memo[n] = result 
end 


goldenmeat on = se00 Sen, 
min = ploat:: INPINTTY 
calc(10) .each{ |i| 
mttaer (goldennatloY aa abs < (goldennraclo mmm) abs 
} 


ODE yoann Oe ed) 


Bute ma 
on 
Sy 代码 里 有 求 数组 直 织 的 片 段 ， 是 什么 意思 呢 ? 
(NU) 
AR 


并 联 电阻 是 用 数组 表示 的 ,但 并 联 电 阻 中 身 也 有 各 种 内 部 组 合 ,这些 
组 合 直接 设置 成 了 数组 元 素 。Ruby 里 有 对 数组 求 直 积 的 处 理 , 用 这 
个 特性 很 容易 就 可 以 实现 。 


那 parallel 中 使 用 的 Rational 又 是 什么 呢 ? 


Ruby 可 以 用 Rational 处 理 分 数 。 像 这 种 问题 , 如 果 用 分 数 来 处 理 ， 
结果 和 更易 异 。 不 过 有 时 候 我 们 还 得 考虑 处 理 速 度 , 所 以 还 可 以 考虑 更 
改 parallel 第 1 行 提 内容， 直接 用 小 数 进行 计算 。 


1.6181818182 


( 89/55 ) 


112 | 第 2 章 初级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


100 
3 0“ 用 插 线 板 制作 章鱼 脚 状 线路 


pppIIIIIIIIIIII I III II I IIII I II I I II I II II I I I I I II I III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


对 工程 师 而 言 ， 确 保 电源 是 最 重要 的 事情 。 不 仅 是 PC， 当 智能 
机 、 平 板 电脑 、 数 码 相机 等 电量 不 足 时 ， 我 们 也 肯定 要 四 处 寻找 插座 。 
不 过 ， 多 人 共用 的 时 候 就 必须 共享 插座 ， 这 时 插 线 板 就 会 派 上 用 场 。 一 
般 的 插 线 板 除了 有 延长 线 ， 还 会 有 多 个 插口 。 

这 里 假设 有 双 插 口 和 三 插口 的 插 线 板 。 墙 辟 上 只 有 1 个 插座 能 


而 需要 用 电 的 电 顺 有 半 台 ， 试 考虑 此 时 应 如 何 分 配 搬 线 板 。 举 个 例子 ， 
当 = 4 时 ， 如 国 国 所 示 ， 有 4 种 持 线 板 插 线 方法 ( 使 用 同一 个 插 线 板 
时 ,不 考虑 插口 位 置 ， 只 考虑 搬 线 板 的 连接 方法 。 男 外 ， 要 使 插 线 板 上 
最 后 没有 多 余 的 插口 )。 


Er=49 


求 n = 20 时 ， 插 线 板 的 插 线 方法 有 多 少 种 ( 不 考虑 电源 的 功率 问题 ) ? 


不 考虑 使 用 的 是 插 线 凯 上 网 哪 个 插口 位 置 …… 这 点 很 难 中 。 
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可 用 的 搬 线 板 插 口 数 分 别 是 2 个 和 3 个 ， 
序 使 用 。 既 然 连接 某 个 插 线 板 时 不 考虑 所 用 的 插 
照 国 到 从 右 侧 的 插口 开始 按 顺序 使 用 。 


这 些 插口 需要 按 一 定 的 顺 
口 位 置 ， 那 么 这 里 就 按 


一 个 插 线 板 一 旦 插入 为 一 个 插 线 板 的 插口 中 ， 从 此 就 连接 在 这 个 插 
线 板 上 了 。 因 此 我 们 可 以 使 用 深度 优先 搜索 。 这 里 要 求 的 是 可 以 空 出 


个 插口 的 插 线 方法 。 某 个 插 线 板 的 插口 上 插 了 其 他 插 线 板 时 ， 只 需要 把 
这 些 插 线 板 的 插口 个 数 相 乘 就 可 以 了 。 我 们 可 以 用 Ruby 实现 ， 如 代码 
清单 30.01 所 示 。 


代码 清单 30.01 (aq30_01.rpb ) 


N 


20 


defnsetdtap (remasm) 
relursnel mE emaum = 
cnt = 0 
# 2 个 插 
(1.. (remain / 2)).each{|i| 
BEeremame them 
ente r= SEE 人 EEC /2 


else 
cnt += "set tap(remain ea) yx set tap(i) 
end 
} 
# 3 个 插 
(enamne es eacnled 
全 | 
En 
ie 二 EUEEE (et tap( 
2 
esnste emanm (eenm 
cnt += set tap(i) * (set tap(i) + 1) * set tap(j) / 2 
esa = = ehen 
ent +=set tapl(remainm (17))* set tap(i)* set 
tap 2 
elsif remain - (i + j) == j then 
ene t= Setatapl(yy (setutapl(l on setltap( /2 
ese 
cnt += set tap(remain - (i + j)) * set tap(j) * Set 
apny 
end 
} 
} 
Cn 
erid 


puts set tap (N) 
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参数 为 1 时 返回 1 是 什么 意思 呢 ? 


就 是 1 个 插口 就 内 有 1 种 插 线 方法 的 意思 , 也 就 是 “没有 办 法 继续 连 
插 线 析 3” 吧 。 


对 拘 。 要 是 = 15， 鼎 间 就 可 以 求 得 答案 ， 但 本 题 中 n= 20， 大 幅 
就 轩 花 碍 20 秒 左右 的 处 理 时 间 3 了 3。 下 面试 试用 内 存 化 的 方法 优化 程 
序 吧 (代码 清单 30.02)。 


@memo = {1 => 1} 
qefesetataplemany 
return @memo[remain] if @memo.has key? (remain) 


cnt = 0 
# 2 个 插 
(ee (enamnmye 2 eaenaded 
TE emnaane Enenm 
cne r=Sset tapl(l (seelEapl() /2 
Else 
center Setataplenane ta 
en 
} 
# 3 个 插 
(enaine/ eacm(iled 
(Eeenan .eaecnel 
Eemam Een 
cent r= get tapl(r (setotapl( oT) (set tea) 
2 VS 
elsif remain (37) == J then 
cnt += set tap(i) * (set tap(i) + 1) * set tap(j) / 2 
elsif 1 === then 
cence etataplenann Ensen 
Gap /2 
elsif remalin (7 7) == J then 
ene r= seeaeap(y (secaEapl(y ec Ea /2 
eTse 
centesssetatoplenalne tna sstn 
GCap 
end 
} 
} 
@memo [remain] = cnt 
Seng 


BUESSsecyeapl(Ny 
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内 存 化 真是 非常 实用 的 方法 啊 。 即 使 = 100 也 可 以 此 间 得 到 监 宽 。 


用 JavaScript 实 现 同样 网 处 理 在 看 吧 。 


AN 
全 这 况 没 有 什么 需要 特别 注意 的 地 方 ， 直 接 实 现 就 好 啦 (代码 清音 
tf 30.03)。 

Se 


代码 清单 30.03 (q30_03.js) 


Sonste N20 
Var memo = []; 
memo [1] = 1; 


function set tap (zemaiDn){ 
if (memo[remain]){ 
return memo[remain]; 


} 
Mame = 0 
Vr 2 
for (var 1 = 1; 1 <= remain / 2; i++){ 
二 ES ee 三 三 | 
2 
Elise 
) GE 
J 3 Mi 
for (var yi = 1 <= remalm/ 3 7+){ 
EOr la (ema /2 
Ee (emanm (= 
cnt += set tap(i) * (set tap(i) + 1) * (set tap(i) + 2) / 6; 
else if (remain - (i + j) == i) 
GE 
eses te 


Snesetatap (renann rsetabap ser 
Cap Ee/ 


elser Femanme (= 
cence r= setneap (entan sccntapl( /25 
else 


cnt += set tapl(remain = (1 + 1])) * set tap(j) xx set tap (i); 


memo[remain] = cnt; 
eturnlene, 


} 


console mod (setaeas (ne 


-= 有 63877262 种 
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时 间 复 杂 度 记 法 和 计算 量 


我 们 设计 算法 时 ， 通 常会 关注 “计算 速度 ”和 “内 存 使 用 量 "。 不 过 ， 
不 同 的 计算 机 架构 和 环境 下 ， 处 理 时 间 、 内 存 使 用 量 也 会 有 所 不 同 。 

因此 ， 我 们 通常 会 用 “时 间 复 杂 度 ”来 描述 算法 处 理 时 间 (或 者 叫 
“大 0 表示 法 ”)。 这 种 表示 法 用 于 表示 当 处 理 数据 量 为 N 时 ， 程 序 处 理 时 
间 随 着 N 的 变化 而 变化 的 规律 。 
举 个 例子 ， 当 NW 增 大 时 ， 某 个 算法 的 处 理 时 间 增 大 幅度 大 约 是 N?， 
那么 这 个 算法 的 时 间 复 杂 度 就 是 O(N”)。 有 人 也 把 这 样 的 算法 称 为 “O(N?) 
算法 ”。 

要 进行 某 个 处 理 时 ,根据 所 用 算法 的 不 同 ， 其 所 需 时 间 的 差异 也 相当 
大 ( 表 1)。 举 个 例子 ， 当 采用 O(N’) 算法 时 , 虽然 N = 10 时 只 需 0.1 秒 ， 
但 NN = 1000 时 就 需要 1000 秒 ， 也 就 是 16 分 钟 左右 了 。 同 样 地 ， 当 O(N) 
算法 和 O(CNV2) 算法 返回 相同 结果 时 ， 如 果 N = 1000， 前 者 可 能 只 需 1 秒 ， 
而 后 者 要 花 16 分 钟 左右 才能 完成 。 

如 果 你 在 工作 中 感觉 到 某 些 处 理 非常 花 时 间 ， 那 么 修正 一 下 算法 ， 处 
理 时 间 就 可 能 会 大 幅 缩短 。 这 时 ， 也 请 计算 一 下 修正 前 和 修正 后 的 时 间 复 


杂 度 的 变化 。 


不 同 算法 的 处 理 时 间 ( 假设 O(1) = 1 时 的 估算 值 ) 


O(log N) 


O(N log N) 2x107 


O(N?) 102 106 10 吕 
O(N3) 103 1010 10'8 
O(2N) 103 10300 103x105 


※ 根 据 对 数 底 不 同 ， 时 间 复 杂 度 通常 只 会 有 几 倍 的 变化 。 为 了 简化 ， 这 里 采用 一 般 的 估算 倍数 2 进 
行 计算 。 


4 
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ET ED 
Qa 计算 最 短路 径 


pIIIIIIIIIIIII II II II I I II I II II II I II II I I I I I II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


假设 存在 如 医 加 所 示 的 正方 形 ， 该 正方 形 被 划分 为 了 若干 个 边 长 为 
1 厘米 的 正方 形 方 格 。 请 思考 从 A 到 B 以 最 短 距离 在 分 割 线 上 往返 的 情 
况 。 这 里 限制 返程 时 不 能 走 去 程 时 走 过 的 路 径 ( 但 允许 和 去 程 路 径 有 交 
又 点 ) 

举 个 例子 ， 当 正方 形 的 边 长 为 2 厘米 时 ， 一 共有 10 种 往返 路 径 ( 了 


边 长 为 2 厘米 时 


求 当 正 方形 的 边 长 为 6 厘米 时 ， 共 有 多 少 种 最 短路 径 ? 


路 径 的 问题 经 常 碰 到 呢 。 要 说 往返 路 径 ， 应 该 不 会 就 是 单程 景 
径 种 数 曲 两 信 吧 ? 


不 能 走 同样 路 径 这 
保存 下 来 。 


个 条 件 是 关键 , 所 以 轨 把 “是 否 已 下 过 ”这 
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单 向 路 径 的 计算 比较 简单 ， 但 往返 就 有 点 儿 复 杂 了 。 当 你 思考 “ 
样 设计 才能 让 编程 更 简单 ”时 会 发 现 ,“ 换 个 思路 解读 问题 ” 
种 简化 方法 。 

这 次 的 例子 里 ， 把 “往返 路 径 ” 这 个 说 法 理解 成 “两 种 路 径 ” 会 简 
单 很 多 。 路 径 的 表示 方法 不 同 ， 实 现 方法 也 就 不 同 ; 即使 表示 方法 相同 ， 
也 可 以 有 很 多 算法 来 解决 问题 。 
首先 用 JavaScript 实现 最 简单 的 解 题 方法 。 以 顶点 的 横 坐 标 x 和 纵 
EE 标 y 为 准 ， 往 右 记录 0， 往 下 记录 1， 以 此 记录 通过 的 顶点 ， 也 就 是 
通过 递归 用 深度 优先 搜索 遍历 ， 清 除 标 记 ( 代码 清单 31.01 )。 


| 之 


代码 清单 31.01 ( aq31 01.js ) 


var Square = 6; 


TOU = 
var 1s UsSed = New Array (); 
for (var i = 0; i <= square; i++){ 
lis Usedli] = new Array()s 
for (var ="0; 1] <= square; J++)! 
is used[i] [j] = new Array (false, false); 


} 

} 

Funetione outelr ee 0 ioe etteme)l 
if ((x == square) && (y == square)){ 

(ne 
route(0, 0, false); 

} else { 

SounEeeh 
} 
} 
if (x < square){ 

Ee on 
ss ue 
reoutel(xo OL ye Ee 
TsusedlxIlly Loarse, 

} 

} 
if (y < square){ 

SET 用 站 和 内 下 
sse ue 
EGUEEIC Vl Seest Ee, 
TESeqsIy Elsey 
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} 


moutel(onN ot ue 
Sonsolen loo(eoume) 


不 过 , 如 果 正 方形 的 边 长 变 大 , 代码 清单 31.01 的 处 理 时 间 会 很 长 。 
下 面 介 绍 一 个 优化 方法 。 因 为 逻辑 相对 复杂 , 所 以 为 了 解说 方便 , 这 里 
假设 正方 形 的 边 长 为 3 厘米 。 


医 回 边 长 为 3 厘米 的 情况 


如 果 一 开始 已 经 由 a 移动 到 b， 那 么 还 要 从 bdpn 这 个 长 方形 里 找 
到 一 条 从 b 出 发 分 别 返 回 到 fj、n 的 路 径 ， 才 能 避免 和 起 始 路 径 重合 
(如 果 返 回 b， 那 么 路 径 一 定 是 b 一 4a， 这 与 问题 要 求 不 符 )， 如 果 返 回 
到 f， 那 么 最 终 路 径 是 f 一 e 一 a ; 如 果 返 回 到 j， 则 是 j 一 1 一 e 一 ai 
如 果 返 回 到 n， 则 是 n 一 m 一 i 一 e 一 a。 经 过 这 几 个 顶点 的 路 径 都 可 
以 算 作 1 种 路 径 。 换 和 句 话 说， 只 要 求 出 从 b 点 出 发 分别 返回 到 fj、 
n 的 路 径 数 ， 然 后 再 相 加 就 能 求 得 最 终 答案 (已 经 由 a 移动 到 e 的 情形 
与 上 述 情形 对 称 ， 所 以 最 终 答案 是 其 中 一 种 情形 下 的 路 径 数 的 两 倍 )。 

接 下 来 求 从 b 出 发 返回 到 下 的 路 径 。 假 设 这 时 已 经 由 bb 移动 到 c， 
那么 就 相当 于 求 cdpo 这 个 长 方形 中 由 c 出 发 分 别 返回 到 g、k、o 的 路 
径 。 假 设 事先 已 经 由 b 移动 到 f, 则 是 求 由 f 出 发 返回 到 f 的 路 径 , 也 就 
是 计算 fhpm 这 个 正方 形 ( 即 递归 过 程 的 “前 一 个 ”) 即 可 。 
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代码 清单 31.02 实现 了 这 个 遍历 过 程 。 


代码 清单 31.02 (q31 02.js ) 


function route(width, height, back y){ 
GE 三 三 EU 人 Pa yy henan aony 
laelke yr 2 
El(neliogntes== 1 returnd(back ny ==°000 7 2 
varstotau 0 
if (Back yy == 0)1 


} 


econsolemlio(t oe ne 


Fo va 0 elone ol 


} 


} else { 
for (var 1 = backy, 1 <= height, 77+)! 


} 
} 


tela route (vidth nerant backny 1 呈 


return total; 


Eotal P= 2 + routel(width "neignt oD). 


EoEan Fe rousel(waden TEN 交 届 二 


即便 都 是 用 递归 ， 仍 然 可 以 通过 改变 处 理 遇 辑 使 处 理 时 间 大 幅度 变 


化 号 。 


中 间 处 理 还 应 用 3 内 存 化 方法 ， 进 一 步 缩 短 3 处 理 时 间 呢 。 


100360 种 
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ET ETT 
32 棉 栅 米 的 铺 法 


ppIIIIIII IIIII II I IIII II II I II I I III I I III I I III II III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


一 种 叫 作 “ 仪 式 铺 法 "0 的 杨 槛 米 铺 法 , 这 种 铺 法 可 以 使 相 邻 机 机 
WI ed ee 
十 字 接 颖 (也 就 是 4 张杨 杨 米 的 角 不 能 集中 在 1 个 交点 ) 的 方法 把 机 槐 
米 铺 在 房间 里 。 

举 个 例子 ， 如 果 把 一 个 房间 看 作 由 纵 3 x 横 4 个 正方 形 构成 ， 而 我 
们 需要 在 这 个 房间 里 铺 6 张杨 杨 米 ， 则 铺 法 如 本 加 所 示 ( 杨 栅 米 的 大 小 
相当 于 2 个 正方 形 的 大 小 )。 
房间 示例 铺 法 1 铺 法 2 


二 本 本 国 


纵 3 x 横 4 情况 下 的 铺 法 示例 


国 四 表示 方法 
铺 法 示例 可 以 用 表格 方式 表示 ， Pe 
如 国 加 所 示 。 


求 在 由 纵 4x 横 7 个 正方 形 构成 的 房间 里 铺 14 张杨 杨 米 时 的 铺 法 。 


求 在 由 纵 5x 横 6 个 正方 形 构成 的 房间 里 铺 15 张杨 杨 米 时 的 铺 法 。 
:tl 
mn 

于 人 
@ \/ 


aw 


从 左上 滑 开 始 铺 ， 如 颗 无 法 继续 ， 则 改变 铺 法 重 来 。 


中 杭 杨 米 的 铺 法 分 为 “仪式 铺 法 ”和 “ 非 仪式 铺 法 "”。 仪 式 铺 法 象征 着 吉祥 ， 与 相 
邻 的 栅 桶 米 相 连 而 形成 的 接 缝 要 呈 工 字形 ; 非 仪式 铺 法 则 是 不 祥 的 铺 法 ， 寓 机 米 
相连 处 的 接 颖 为 十 字形 。 编者 注 
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本 题 是 “棋盘 类 ”问题 。 
栏 就 可 以 简化 边界 条 件 判断 。 


很 多 时 候 ， 在 问题 界定 的 范围 外 侧 加 上 围 
j JavaScript 实现 时 ， 代 码 如 代码 清单 


32.01 所 示 。 


代码 清单 32.01 (q32_01.js) 


Varcenernghe 4 
Var width 村 
i eh 


var tatami new Array (height + 2); 


/* 设置 初始 值 ( 外 围 用 -1， 内 部 用 0 表示 ) */ 
for (var Hh = 0; h <= height + 1; h++){ 
tatami[h] = new Array (width + 2);，; 


or (Yaw 0; w <= width + 1; w++){ 
tatami [hj [Iw =" 0 
Eo [| 

(n== neignt 4 1) (w == width + 1)){ 
tatami [h] [w] = 

} 

) 

} 


/* 显示 杨 杨 米 */ 
function printTatami (){ 
or vam 1; 1 <= height; j++){ 


0) 


O(n 
/* 横向 铺 时 显示 “-”*/ 
Ee (taeami lal c= tatandlij 二 i 11) || 
(eae iil Sl == aEamiils = 11)) 
SE 
/* 纵向 铺 时 显示 “|”*/ 
ee aa aa 
WE ae ma mn 
str += "|"; 
} 
SET += "\n"; 


} 


Str += MW\nn; 


} 
/* 递归 铺 杨 杨 米 */ 


function setTatamil(h, w, id){ 
if (h == height + 1){ /* 铺 完 显示 枫 杨 米 */ 
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peintTatama() 

) else if (w == width + 1){ /* 到 右边 界 时 改行 */ 
SekemakamalihE 1 1a) 

} else if (tatami[h] [w] > 0){ /* 铺 完 向 右 移 动 */ 
seeTatami (hw ET gD 


} else { /* 当 左 上 与 上 边 相 同 或 者 左上 与 左边 相同 时 可 以 铺 */ 


(tatamin atamilan el 
(tatami[h - 1] [w - 1] == tatami[h] [w - 1])){ 
if (tatami[h] [w + 1] == 0){ /* 可 以 横向 铺 的 情况 */ 
tatami[h] [w] = tatami[h] [w+ 1] = id; 
SetTatami (h, w + 2, id + 1); 
tatamdE[lh) [w= tatami [lhl [w 4 1) = 0; 

} 

if (tatami[h + 1] [w] == 0){ /* 可 以 纵向 铺 的 情况 */ 
tatami[h] [w] = tatami[h + 1] [wj = id; 
SetTatami (h, w + 1, id + 1); 
tatami[h] [w] = tatami[h + 1] [w] = 0; 

} 


} 
} 
} 


setTacam TIE 汪 可 六 
console,log(str); 


徐 问 题 2， 只 需要 重 改 第 1 行 和 第 2 行 就 可 以 3 吧 ? 


是 的 。 像 代码 清单 32.01 这 样 ， 在 显眼 位 置 设置 易 异 的 常量 或 者 变 
量 , 程序 的 修改 就 变 得 简单 3, 也 有 利于 阅读 ,这 是 一 短 双 瞧 揭 写法。 


设置 外 围 边 界 好 像 有 点 多 此 一 举 ， 是 为 3 简化 条 件 吧 ? 


如 果 不 设置 外 围 边 办 ， 那 么 判断 上 下 左右 的 移动 范围 时 需要 判断 数 
组 下 轩 是 否 有 效 。 设 置 了 3 外围 边 办 后 ， 就 不 需要 增加 这 个 判 疡 步骤 
了， 所 以 程序 结 物 会 简单 很 多 哦 。 


前 半 部 分 是 初始 化 和 查 赐 米 曲 显示 , 实际 的 处 理 是 在 setTatamiw% 
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Hr 


本 次 程序 执行 后 ， 输 出 的 答案 是 岁 形 ， 即 问题 1 的 答案 一 一 3 种 外 
法 的 示意 图 ， 以 及 问题 2 的 答案 一 一 2 种 铺 法 的 示意 图 。 输 出 的 图 形 中 
问题 1 的 答案 中 有 2 种 铺 法 互 为 左右 镜像 ， 而 问题 2 的 答案 中 这 2 种 
法 互 为 上 下 镜像 。 


EY》 na 


HH 。 


问题 1 的 答案 示意 图 


问题 2 的 答案 示意 图 


126 | 第 3 章 中 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


ET NED 
33 飞车 与 角 行 的 棋 上 


pIIIIIIIIIIII III II II II I I I II I I II I II II I I I II II III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


假设 在 将 棋 棋 盘 上 的 任意 两 格 中 分 别 放 入 飞车 和 角 行 “这 两 颗 棋 子 。 
将 棋 的 棋盘 纵横 各 9 格 ， 飞 车 和 和 角 行 不 能 放置 到 同一 格 。 这 里 我 们 暂且 
不 考虑 对 方 棋子 和 己方 其 他 棋子 的 存在 。 


假设 在 放置 飞车 和 角 行 时 将 所 有 位 置 都 考虑 在 内 ， 求 两 颗 棋 子 的 棋 步 范围 内 
所 有 格子 数 之 和 。 例 例 2 
※ 所 谓 “ 棋 子 的 棋 步 范围 ” 指 的 
是 棋子 能 移动 到 的 范围 。 飞 车 飞 飞 角 
能 上 下 左右 直线 移动 ， 角 行 能 
在 斜 线 上 移动 。 
例 ) 飞车 和 角 行 的 位 置 如 
图 加 所 示 时 ， 棋 步 范 
册 例 3 例 4 
示 ( 带 颜色 的 格子 )。 
。 例 1: 24 格 
。 例 2: 23 格 
。 例 3: 23 格 
。 例 4: 15 格 


角 
飞车 和 角 行 各 放置 一 颗 时 的 示例 


ED 
eo 要 注意 , 棋 步 范围 内 有 另外 一 里 棋子 时 , 越过 那里 模子 则 格子 不 能 策 
六 ~ 入 嵌 步 范围 。 


比如 医 国 中 曲 例 2 和 例 4， 飞 车 的 棋 步 范围 就 被 六 行 截断 3 一些。 


QD 日 本 将 棋 中 的 棋子 。 将 棋 共 有 8 种 棋子 ， 分 别 是 王将 ( 玉 将 )、 飞 车 、 角 行 、 金 将 、 
银 将 、 香 车 、 桂 马 、 步 兵 。 关 于 将 棋 的 具体 规则 ， 感 兴趣 的 读者 可 自行 在 网 络 上 查 
询 ， 本 题 中 只 要 知道 飞车 的 走 法 是 直 走 或 横 走 无 限 格 ,不 能 越过 其 他 棋子 ( 同 中 国 
象棋 中 的 “车 ”)， 角 行 的 走 法 是 斜 走 无 限 格 ， 不 能 越过 其 他 棋子 即 可 。 一 一 编者 注 
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Q32 里 提 到 过 ， 对 于 棋盘 类 问题 ,“ 很 多 时 候 ， 在 问题 界定 的 范围 
外 侧 加 上 围栏 就 可 以 简化 边界 条 件 判断 ”。 本 题 同 理 ， 在 棋盘 的 9x9 的 
方 格外 侧 加 上 辅助 判断 的 格子 就 可 以 简化 问题 。 

这 里 ,我 们 用 x 坐标 和 y 坐标 表示 飞车 和 角 行 的 位 置 ， 按 顺序 遍历 
位 置 ， 并 判断 各 格子 是 否 在 棋 步 范围 之 内 。 然 后 ， 以 围栏 为 边界 ， 上 下 
左右 移动 飞车 ， 斜 线 方向 移动 角 行 ， 判 断 棋子 是 否 出 现在 了 为 一 颗 棋 子 
的 棋 步 范围 内 ， 一旦 到达 边界 就 终止 搜索 。 代 码 清单 33.01 是 用 Ruby 
实现 的 递归 处 理 示例 。 


代码 清单 33 .01 (gq33_01.rb ) 


# 设置 棋盘 
@board = Array.new(11) .map! {Array.new (11)} 
(0..10) .each{ |i| 
(on seachndlel 
@board[i] [j] = (i == 0) || (i == 10) || (3 == 0) || 9 == 10) 
} 
} 


# 初始 化 统计 变量 


Qount = 0 


# 递归 人 遍历 

atEseaecI vax a 
return if @board [x] [y] 
enecraz :0 
search(x Tdx/y OZ OA dy) 

end 


# 按 顺序 放置 飞车 和 角 行 并 遍历 
(1..9) .each{ |hy| 
(I eacndlnl 
(1..9) .each{ |ky| 
(TR eacndla| 
Ey ky tnen 
@check = Hash.new!() 
@board [hxl [lhy] = @board[kx) [ky| = true 
[I Ol a Ol i 1) IO. 21 Ses | 
search(hx+hd[0], hy+hd[1], hd[0], hdl[l1]) 

} 


ia = 了， [a 2 eee eal 
Searcmn(kx+Ealol kyr eol alo kolo 
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} 
@board [hx] [hy] = @board[kx] [ky] = false 
count += @check.size 

end 

} 
} 
} 
b 


puts count 


一 开始 则 “设置 棋盘 ”设置 的 究竟 是 什么 呢 ? 


用 于 判断 赂 子 是 否 已 使 用 过 拘 畦 记 。 模 盘 外 为 true (已 使 用 >, 棋盘 
内 则 为 false〈 未 使 用 > 


一 旦 某 个 格子 内 放置 了 飞车 或 者 坊 行 ， 就 怒 由 应 的 过 记 设置 为 true， 
zjop? 


是 的 。 然 后 就 榨 顺 序 确认 各 自 的 棋 步 范围 ， 统 计 赂 子 数 。 


像 将 棋 这 样 的 游戏 是 学 习 递归 搜索 的 绝 佳 素材 。 类 似 的 还 有 “ 八 皇 
后 ” “骑士 巡 罗 ” 等 著名 问题 。 单 就 将 棋 而 言 ， 香 车 、 步 兵 等 棋子 还 相 
对 简单 了 ,但 如 果 再 加 上 桂 马 的 棋 步 2 和 升级 规则 有 就 会 比较 复杂 ,很 有 意 
思 。 请 大 家 试 着 增加 棋子 或 者 其 他 场景 来 试 试 看 。 


中 香 车 的 走 法 是 只 可 正 前 方 直 走 无 限 格 ， 不 可 后 退 和 越 子 ; 步兵 的 走 法 是 只 可 向 正 
前 方 直 走 一 格 ， 不 可 后 退 ， 控 制 范围 仅 一 格 。 一 一 编者 注 

@) 桂 马 在 8 种 棋子 中 ， 是 唯一 能 越过 其 他 对 方 和 已 方 棋子 的 ， 即 可 以 跳 到 正 前 一 格 
的 斜 前 方 两 格 ， 而 且 正 前 方 的 格子 内 有 子 时 也 可 以 越过 ， 不 会 像 中 国 象棋 中 的 
“ 马 ” 那 样 被 “党 脚 "， 不 过 桂 马 不 可 后 退 。 编者 注 

@ ”将棋 的 棋子 设 有 升级 制度 。 除 了 王将 ( 玉 将 ) 、 金 将 和 已 经 升级 的 棋子 外 ， 所 
有 棋子 都 可 以 升级 。 当 满足 一 定 范围 条 件 时 ( 例如 进入 对 方 阵地 后 )， 玩 家 可 以 
选择 把 棋子 升级 ( 也 可 以 不 升级 )。 将 棋 棋 子 的 背面 都 写 有 升级 后 的 名 称 ， 只 要 
翻转 棋子 即 完成 升级 。 例 如 飞车 可 升级 为 龙王 ， 除 可 直 走 或 横 走 无 限 格外 ， 亦 可 
兼容 王将 ( 玉 将 ) 的 走 法 ( 可 走 任意 方向 ， 但 只 能 走 一 格 且 不 可 越 子 )。 

一 一 编者 注 
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149424 


© Column 让 


从 计算 机 将 棋 的 发 展 中 看 到 的 变化 


我 高 考 的 时 候 , 选 择 报考 大 学 的 标准 是 “能 否 研究 人 工 智 能 。 那 
已 经 是 大 约 18 年 前 的 事情 了 。 那 个 时 候 计 算 机 将 棋 已 经 出 现 ， 不 过 
只 有 业余 选手 的 水 准 。 即 便 仅 仅 是 将 棋 爱 好 者 的 我 , 也 能 轻易 战胜 计 
算 机 。 

那 时 的 我 有 一 个 目标 ， 就 是 开发 一 个 能 战胜 人 类 的 计算 机 将 棋 程 
序 。 而 已 经 迷 上 编程 的 我 ， 还 编写 了 一 个 简单 的 将 棋 程 序 ， 并 且 将 其 
作为 自由 软件 公开 了 。 不 过 , 那个 程序 只 有 简单 的 对 战功 能 。 因 此 ,我 
想 研 究 人 工 智 能 ， 让 计算 机 更 强大 。 

考 入 大 学 后 ,我 如 愿 以 偿 地 进入 报考 的 研究 室 ， 一 直 读 到 了 硕士 。 
虽然 没 再 研究 计算 机 将 棋 ， 但 也 学 到 了 很 多 日 后 派 上 大 用 场 的 技术 。 

而 如 今 ,计算 机 将 棋 取 得 了 长 足 的 发 展 , 业余 选手 已 难以 匹敌 。 计 
算 机 将 棋 已 经 能 取得 与 专业 选手 同等 甚至 更 好 的 对 局 成 绩 了 。 

计算 机 仅仅 花 了 20 年 ,就 已 经 轻松 进化 出 了 超越 人 类 的 水 准 。“ 会 
编程 ”相当 于 “能 改变 世界 "”。 这 期 间 发 生 的 最 大 变化 也 许 就 是 “诞生 
了 拥有 超越 开发 者 能 力 的 计算 机 ”。 

就 将 棋 而 言 ， 开 发 者 已 经 在 计算 机 面前 败北 。 像 这 样 计算 机 超越 
人 类 的 例子 目前 还 仅仅 出 现在 特定 领域 里 。 归 根 结 底 ,计算 机 做 的 还 
只 是 单纯 的 大 量 计 算 。 不 过 ， 此 后 计算 机 超越 人 类 的 进程 也 许 会 进 一 
步 加 速 。 我 深 觉 作为 一 名 开发 者 ， 不 仅 要 掌握 正确 的 知识 ,而 且 在 开 
发 时 除 技术 外 ， 也 有 必要 关注 伦理 方面 的 问题 。 
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.EI ET 
Qi 会 有 几 次 命中 注定 的 相遇 


NOVHHHHHHHVH1IVHHIIVVGHVGVGGIGVVVGGIVGGGGVGGGVGVGGGGGGGGGGGGGGGGVGGGGVGGGGGGGGGGGGM 


不 管 是 偶然 的 重逢 还 是 一 见 钟情 ， 在 视线 相遇 的 瞬间 ， 都 会 有 一 种 
“命中 注定 ”的 感觉 吧 ? 下 面 一 起 来 看 看 “命中 注定 的 相遇 ” 吧 ! 

假设 存在 如 医 吏 所 示 的 正方 形 ， 该 正方 形 被 划分 为 了 边 长 为 1 厘米 

的 正方 形 方 格 。 男 生 从 A 到 B, 女生 从 B 到 和 A， Oo 
同 速度 前 行 。 如 果 符 合 以 下 情形 ， 则 判断 为 “命中 注定 的 相遇 ”。 


中 两 次 同时 停 在 同一 直线 内 的 顶点 上 ( 相互 可 见 状态 ) 
淡 曾经 相遇 过 一 次 的 两 人 再 次 擦 启 而 过 ， 彼 此 感受 到 了 命运 的 安排 …… 


@) 在 同一 项 点 交汇 ( 相互 接触 状态 ) 
淡 想 要 捡 起 掉 落 的 东西 时 ， 两 人 的 手 不 经 意 间 碰 触 ， 这 …… 就 是 缘分 吗 ? 


当 边 长 为 3 厘米 时 ， 有 如 和 A 成功 示例 1 A ”失败 示例 1 
攻 加 所 示 的 几 种 情况 ( 男生 是 i 
蓝 线 ， 女 生 是 灰 线 )。 

成 功 示例 1| 满足 上 述 条 件 四 时 
成 功 示例 2] 满足 上 述 条 件 @) 时 
失败 示例 1| 同时 停 在 同一 直线 
内 的 顶点 上 的 情况 


A ”成 功 示例 2 A ”失败 示例 2 
只 发 生 了 一 次 es 
身 政 示例 2| 未 曾 同 时 停 在 同一 
直线 内 的 顶点 上 


求 在 边 长 为 6 厘米 的 正方 形 
上 ， 发生“ 命中 注定 的 相遇 ”的 情况 共有 多 少 种 ? 


边 长 为 3 厘米 时 
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关于 路 径 问 题 ， 我 们 遇 到 很 多 次 了 。 根 据 “ 如 何 表 示 路 径 ” 的 不 
同 ， 解 法 的 差异 也 很 大 。 有 把 向 右 表示 为 0， 向 下 表示 为 1， 从 而 用 二 
进 制 表示 路 径 的 方法 ; 也 有 像 代码 清单 34.01 这 样 的 简单 方法 ， 即 用 


Ruby 递归 处 理 男女 各 自 的 移动 路 径 。 


代码 清单 34.01 (q34_01.rb ) 


N = 6 
@cnt = 0 
def search(man x, man y, woman x, woman y, meet) 
if (man x <= N) && (many <= N) && 
(woman x >= 0) && (woman y >= 0) then 


@cnt += 1 if (man x == N) && (man y == Ni SS (meet >= 2) 
meet += 1 if (man x == Woman Xx) 
meet = 1 if ma == Woman y) 


SearcchtmnanEx manE woman J] womany, meet) 
SearcmtnanEx rT manly womannx womarnmy | meet) 
Search (mann x nan 1 womanx 1 womanly, meet) 
Searenl(man x manYy Tt 1 womannx womany® 1 meet) 
end 
end 


SeacemtOR oN No 
puts @cnt 


执行 后 可 知 正 确 答案 为 “527552”。 


区 呢 ! 


如 果 人 A 和 和 BB 是 分 别 从 自己 的 公司 出 发 去 对 方 公司 的 ， 那 么 两 人 很 有 可 
能 已 经 相遇 了 呢 ! 


527552 种 
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ET BET 
35 0 和 7 的 回 文 数 


pIIIIIIIIIIIII II I II II I II I I I IIII II I I II I III II II IIIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


已 知 对 任意 正 整 数 而 言 ， 一 定 存 在 n 的 正 整 数 倍 的 “ 仅 由 0 和 7 
构成 的 数 ”。 


例 ) n = 2 时, 2x35=70 
n= 3 时 ，3x2359 = 7077 
n=4 时 , 4x 175 = 700 
n=5 时 , 5x14=70 
n=6 时 ,6 x 1295 = 7770 


这 里 我 们 思考 一 下 的 正 整 数 倍 的 “ 仅 由 0 和 7 构成 的 数 ” 中 的 最 
小 值 ， 且 该 最 小 值 为 回 文 数 的 情况 ( 回 文 数 在 Q01 中 提 过 ， 即 反 过 来 读 
也 是 同一 个 数 )。 举 个 例子 ，13 x 539 = 7007 里 的 7007 就 是 回 文 数 。 


求 位 于 1~50 的 所 有 满足 上 述 条 件 的 2， 但 上 例 中 提 过 的 13 除外 。 


判断 一 个 数 是 否 是 3 的 针 数 ， 只 需要 计算 各 个 数位 上 的 数字 之 和 ， 再 
判断 这 个 和 是 不 是 3 的 人 计数 就 可 以 了 ， 对 吧 ? 


Ne/ 可 惜 这 道 题 用 不 上 这 个 知识 。 
| 
t\ 


不 过 ， 如 果真 的 按照 1 膏 ，2 锐 ，3 舍 ，… 这 样 的 方法 求解 ， 也 太 朵 
烦 了 。 
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如 果 从 1 开始 到 50， 单 纯 地 1 倍 ,2 倍 ,3 倍 ,… 这 样 按 顺序 找 下 
去 ， 那么 到 9 的 倍数 时 ， 处 理 时 间 就 很 长 了 。 当 然 ， 有 个 法 则 是 “9 的 
倍数 的 各 个 数位 上 的 数字 相 加 得 出 的 和 一 定 是 9 的 倍数 "， 所 以 找 出 现 9 
次 7 的 数 也 是 一 种 方法 。 

这 次 我 们 还 可 以 反 过 来 , 用 “由 0 和 7 构成 的 数 ” 除 以 原来 的 数 
( 即 )， 然 后 找 出 能 除 尽 的 数 。 这 种 方法 比 前 面 那 种 方法 快 很 多 。 


要 从 小 到 大 列举 由 0 和 7 构成 的 数 ,最 简单 的 方法 是 用 二 进 制 数 里 
的 0 和 1 乘 以 7。 也 就 是 说 ， 用 0, 1, 10, 11, 100, 101, 111, 1000, … 乘 以 
7 TO 7 OT OO OT TA DID TO oo 

另外 ,2 的 倍数 的 个 位 数字 是 偶数 ， 因 此 不 是 本 题 的 答案 (这 是 因 
为 ， 个 位 上 的 数字 为 0 时 ， 由 0 和 7 构成 的 数 是 偶数 ， 这 样 一 来 ， 回 文 
数 的 最 高 位 就 是 0 了 ， 所 以 不 符合 题 意 )。 


es 


原来 如 此 ! “用 二 进 币 数 里 的 0 和 和 1 乘 以 7” 这 个 方法 鼻 是 让 人 大 开眼 
界 oi9, 


昌 然 要 进行 字符 串 和 数值 转换 处 理 ， 但 这 个 思路 得 出 的 代码 比较 易 
读 ， 这 是 它 的 一 个 优点 。 


5 的 馈 数 的 个 位 数字 要 么 是 0 要么 是 5， 所 以 从 回 文 数 这 个 饼 度 来 说 
也 肯定 不 是 本 题 的 堆 案 了 。 


是 的 。 我 们 试 试 把 目前 想到 的 东西 写成 程序 看 看 吧 。 


这 里 用 由 0 和 7 构成 的 数 除 以 1~50 里 的 数 (2 的 倍数 和 5 的 倍数 除 
外 )， 并 判断 可 以 除 尽 的 最 小 的 数 (这 里 指 由 0 和 7 构成 的 数 ) 是 不 是 
回 文 数 。 用 Ruby 实现 时 ， 代 码 如 代码 清单 35.01 所 示 。 
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代码 清单 35.01 (gq35_01.rb) 


(0 See (00 
answer = Array.new 
Kk = 1 


while (nsize Oo) do 
2 ele Ee (2 ee 
fx to inel de 0 ten 
n.each{ |i| 


0 em 
USWelr cE XEoNS = 2 EOoNeeverse 
n.delete (i) 
end 
b 
end 
Foe=0 
end 


puts answer.sort 


执行 程序 可 得 到 结果 “13、39、49”，13 除外 ， 所 以 最 终 答案 就 是 
“39、49”。 

接 下 来 ， 如 果 把 “不 包含 0”( 也 就 是 数字 只 由 7 构成 ) 的 情况 考虑 
进去 ， 则 需要 删除 让 语句 ， 将 程序 改 为 代码 清单 35.02 这 样 。 


代码 清单 35.02 (gq35_02.rb ) 


ne (0 Se 0 0 
answer = Array.new 
区 “= 村 


while (nsize > 0) do 
2 Eo ealee EZ) MED LN 
n.each{ |i| 


iE XS 1 == 0 tien 
anSWer cf oR = XZ EOD everse 
medelete (sy) 
emel 
} 
k += 1 
end 


puts answer.sort 
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执行 程序 可 得 到 结果 “1、3、7、9、11、13、21、33、37、39、 
41、49”。 去 除 13 后 得 到 的 “1、3、7、9、11、21、33、37、39、41、 
49” 就 是 最 终 答 案 。 


从 问题 倒 推 的 里 路 有 时 候 也 能 顺利 得 到 答案 呢 。 


所 以 平时 进行 编程 工作 曲 时 保 也 楼 尽 可 能 从 多 个 明度 去 看 问题 哦 。 


包含 0 和 7 时 : 39、49 
39x1813 = 70707 


( 49x143 = 7007 ) 


不 包含 0 时: ls 3、 ES 9 Ts 
21、33、37、39、41、49 


了 三 :了 

3X259 = 777 
7x1=:7 
9x86419753 = 777777777 
11 访 7 二: 77 

21 关 37 二 :777 

33 x23569 = 777777 
37x21 = 777 
39x1813 = 70707 
41x1897 = 77777 
49x143 = 7007 
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ET EET 
36 翻转 山子 


pIIIIIIIIIIII II I IIII I II I I I II I I II I II II II I III I II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


这 里 有 6 个 骨 子 排 成 一 排 ， 当 第 1 个 骨 子 的 点 数 为 n 时 ， 翻 转 前 n 
个 奶子 并 放 到 最 后 〈 假 设 翻转 前 后 的 点 数 之 和 为 7。 也 就 是 说 ，! 点 翻 
转 后 为 6 点 ，2 点 翻转 后 为 5 点 ，3 点 翻转 后 为 4 点 )。 如果 重 复 这 个 过 
程 ， 就 会 出 现 同样 的 点 数 序列 循环 的 情况 。 


. rE 
. .elese 
LE] 


| …… 第 1 个 散 子 点 数 为 1， 翻 转 第 1 个 散 子 并 放 到 最 后 


例 1 ) 


1 …… 第 1 个 仍 子 点数 为 2， 翻 转 前 2 个 货 子 并 放 到 最 后 


1 一 …… 第 1 个 明 子 点 数 为 4， 翻 转 前 4 个 骨 子 并 放 到 最 后 


1 …… 第 1 个 角子 点 数 为 5， 翻 转 前 5 个 骨 子 并 放 到 最 后 


例 2 ) 343434 一 434434 一 343433 一 433434 一 343443 一 ※ 点 数 序列 和 起 始 时 一 


443434 一 343343 一 343434 致 ,从 这 里 开始 重复 上 
述 步 又 
例 3) 132564 一 325646 一 646452 一 131325 一 313256 一 ※ 点 数 序列 和 第 3 步 时 
一 致 ,从 这 里 开始 重复 
256464 一 646452 i 


例 4) 616161 一 161616 一 616166 一 161611 一 616116 一 ※ 数字 序列 和 第 2 步 时 

> S 一 致 ,从 这 里 开始 重复 

161661 一 616616 一 161161 一 611616 一 166161 一 第 2 步 及 以 后 的 步骤 
661616 一 116161 一 161616 


可 以 注意 到 ， 像 例 3 和 例 4 这 样 ， 有 些 点 数 序列 不 会 进入 循环 ( 132564、 
325646、616161 等 )。 


求 像 上 面 这 样 未 进入 循环 的 点 数 序列 的 个 数 。 
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对 于 这 种 难度 的 问题 ， 使 用 全 量 搜索 就 足以 解答 (不同 的 实现 方法 
处 理 时 间 不 一 样 ， 如 果 花 费 了 5 秒 以 上 ， 最 好 修正 一 下 程序 逻辑 )。 

那么 ， 我 们 首先 用 全 量 搜索 的 方法 试 试 看 。 如 果 把 般 子 的 点 数 序列 
看 成 六 进 制 数 ， 就 可 以 轻松 地 把 点 数 序列 表示 出 来 了 。 用 六 进 制 数 表示 
时 ， 数 字 是 0~5， 只 需 分 别 加 1 就 可 以 变 为 1~6 了 。 用 Ruby 实现 时 ， 
程序 逻辑 如 代码 清单 36.01 所 示 。 


代码 清单 36.01 (aq36_01.rb ) 


# 获取 下 一 个 点 数 序列 

def next dice(dice) 
ieee scoessl re (on neelol :on a 2 4 
dice r= Tl1ght 

end 


ol 0 
(6**6) .times{ |i| 
# 如 果 用 六 进 制 数 表示 ， 只 需 加 上 111111 就 可 以 变 为 1 ~ 6 


cae toms (on 
check = Hash.new 
j=0 


# 找 下 一 个 序列 ， 直 到 进入 循环 
while lohneck.has key? (dice) do 


check [dice] = ]j 
dice = next dice(dice) 
9 el 

enqd 


# 定位 循环 位 置 ， 如 果 在 循环 范围 外 ， 则 计数 
Coune = Wienecelaqueel > 0 


} 


puts count 
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不 过 处 理 时 间 有 点 长 ， 字 等 串 和 数值 转 损 好 像 会 影响 性 能 。 


(NU 
(RN 
eas 的 确 ， 一 靓 来 说 ， 如 果 和 更 注重 性 能 ， 则 要 避 竞 字符 串 和 数值 的 相互 
No/ 
MA 转 损 Oo 
Se 


接 下 来 试 试看 不 用 字符 串 ， 单 纯 用 整数 来 处 理 的 情况 。 下 面 这 段 代 
码 就 是 只 用 整数 实现 相同 的 处 理 〈 代码 清单 36.02 )。 


| 代码 清单 36.02 (9q36 02.rb) 


# 获取 下 一 个 点 数 序列 
def next dice(dice) 
ESp = omeemdn (es) 
Tefeg rghne dneendr vmod(es (Se Eo 
tele 0 0 sae /ater a 
ened 


count = 0 
(6**6) .times{ | | 
checek = Array .new 


# 找 下 一 个 序列 ， 直 到 进入 循环 
while !check.include?(i) do 
check << i 
i = next dice(i) 
end 


# 定位 循环 位 置 ， 如 果 在 循环 范围 外 ， 则 计数 
ET 


} 


puts count 


处 理 时 间 缩 短 到 3 原来 的 三 分 之 一 左右 呢 。 


这 里 的 性 能 优化 技巧 还 可 以 应 用 在 其 他 场 星 哦 。 


不 过 ， 这 里 用 的 还 是 全 量 搜索 ， 所 以 同样 的 数字 可 能 会 被 多 况 处 理 。 
不 如 翅 已 经 搜索 过 曲 数字 记录 下 来 ? 
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要 记录 已 搜索 的 值 ， 需 要 准备 一 个 包含 65 个 元 素 的 数组 ， 然 后 把 搜 
索 过 的 值 存 信 数组， 具体 如 代码 清单 36.03 所 示 。 


代码 清单 36.03 (q36_03.rb ) 


# 获取 下 一 个 点 数 序列 
def next dice(dice) 
Eeop = "daemon ess 
left, right = dice.divmod(6**(5 = top)) 


(ign (Eo TD (ee 
end 


# 记录 已 搜索 的 值 ( 0 : 未 搜索 ，1 : 循环 外 ，2 : 循环 内 ) 
aueidhicee anray new(ee :er 
(6**6) .times{ |i| 
TE clareelsl == "0 enenm 
eneek = Array .new 
wile (eadieeld==> 0 (eneck :mender (de 
check < 
i = next dice(i) 
end 
index = check.index(i) 
if (index) then # 循环 发 生 点 ， 这 个 位 置 前 是 循环 外 
check.shift (index) .each{|j| all dice[j] = 1} 
check.eachn{|j| all dice[j] = 2} 
else # 包含 已 搜索 值 时 为 循环 外 
check.each{|j| all dice[j] = 1} 
end 
eel 


} 


puts alldice eounte en,) 


后 富 ! 处 理 时 间 又 缩短 3 了 三 分 之 二 。 与 最 开始 的 版 本 相 比 , 几乎 是 10 
馈 之 总 了 。 


上 述 处 理 用 JavaScript 实现 时 ， 可 以 像 代 码 清单 36.04 这 样 实现 。 
需要 注意 的 是 ， 进 行 除法 运算 时 会 产生 浮 点 小 数 ， 所 以 要 统一 为 整数 
处 理 。 


140 | 第 3 章 中 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


代码 清单 36.04 (936 04.js ) 


function next dice (dice){ 
vartop = Dargsernte (dice / Math ow(e Sy 
var left = parseInt (dice / Math.pow(6, 5 - top)); 
vam-ignte = die SMachn Pow top 
returnl(right 1 * Mathn pow(eD top re (Lefe re 


} 


var all dice = new Array (Matn.pow(6, 6)) 
for ee Vatn ome el 
a deell 0; 
} 
fOr (= OO Mathn Dow(6. 6 Te) 
if (all dice[i] == 0){ 
check = new Array(); 
while ((all dice[i] == 0) && (check.indexof (i) == -1)){ 
check:push (1) 
T= exc dnl 
b 
index = check.indexOf (i); 
if (index >= 0){ 
for (j= 00; < chneck.length; j++)!{ 
TE ndex)l 
uumoeellicneek ll 
} else { 
本 OCSeIENECR 


} 


ly 


2; 


} 
} else { 
for (j = 0; j < check.length; j++){ 
aacoe leneell 1 


et = 0 
fOr (0 Mathn Dow(6. 6 TE) 
1if (all diceli] == 1) Cnt++; 


} 


console.log (cnt); 


能 不 能 根据 点 数 序列 曲 规律 再 优化 一 下 呢 ? 
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性 能 优化 到 这 个 程度 就 差不多 了 ,下 面 看 看 逻辑 上 能 不 能 再 优化 一 
下 。 为 得 到 以 1 开头 的 点 数 序列 ， 上 一 个 点 数 序列 必须 是 下 面 这 样 的 。 


WBCXXKX 2X XXX OOXX A XXKI NX SS XXX OXXXXX 


这 时 ， 下 一 个 点 数 序列 为 1xxxx6, 1xxx5x, 1xx4xx, 1x3xxx, 12xxxx, 
1xxxxx。 也 就 是 说 ， 第 nn 个 数 为 n。 

反 过 来 看 ， 如 果 开头 是 1， 而 第 nn 个 数 不 是 n， 那 么 一 定 不 会 进入 
(以 1 开头 的 ) 循环 。 同样 地 ， 要 得 到 以 2 开头 的 点 数 序 列 ， 则 上 一 个 
点 数 序 列 需 要 是 下 面 这 样 的 。 


12xxXxXx, 2x2xXXx, 3xXx2XxXx, 4XXxX2X, DXxxx2 


这 时 ， 下 一 个 点 数 序 列 为 2xxxx6, 2xxx5x, 2xx4xx, 2x3xxx, 22xxxXo 
同样 地 ， 这 里 也 是 第 nn 个 数 为 n。 

以 其 他 数 开 头 的 点 数 序列 也 一 样 ,第 n 个 数 不 是 nn 的 点 数 序列 都 不 
会 进入 循环 ， 而 是 以 这 个 数 为 起 点 ， 所 以 搜索 时 可 以 从 这 样 的 数 开始 。 


不 过 ， 即 便 加 上 这 样 的 逻辑 ， 搜 索 况 数 也 没有 减少 很 多 ， 所 以 处 理 
速度 的 改善 很 有 限 吧 。 


本 题 主要 比较 拘 是 结合 了 字符 串 网 处 理 和 单纯 的 整数 处 理 的 性 能 ， 
告诉 大 家 即便 仅仅 是 尽量 只 用 整数 处 理 ， 也 能 实现 高 速 处 理 。 所 以 ， 
请 有 意识 地 多 党 试 不 同 的 实现 ， 看 看 不 同 的 做 法 会 给 处 理 速 度 名 来 
何 种 程度 的 变化 。 


28908 个 
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37 翻转 7 段 码 


pppIIIIIIII I IIIII I I II II II II II II II I II I II II III IIIIIIIIIIIIIIIIIIIIIIIIIIIIN, 
计算 器 、 运 动 计时 器 等 所 用 的 “7 段 显 示 屏 ”( 7-segment display ) 


是 使 用 如 医 目 所 示 的 7 个 部 分 的 亮 灭 来 显示 1 个 数字 的 (这 里 有 A~G 
这 7 个 比特 ， 对 应 比特 为 1 时 亮 灯 ， 为 0 时 灭 灯 ) ( 末 、 )。 


用 于 显示 各 个 数字 的 
比特 的 序列 


,88889 
p199 


7 段 显示 屏 的 亮 灯 示例 


口 


© 
二 


现在 假设 我 们 要 使 用 这 样 的 显示 屏 分 别 依次 显示 0~9 这 10 个 数字 。 
显示 当前 数字 时 ， 如 果 应 亮 灯 部 分 与 显示 上 个 数字 时 相同 ， 则 依然 保持 
亮 灯 ; 同样 地 ， 如 果 应 灭 灯 部 分 相同 ， 也 依然 保持 灭 灯 ， 也 就 是 说 ， 这 
里 是 通过 只 切换 有 变化 的 部 分 的 灯 的 亮 灭 来 显示 下 一 个 数字 的 。 


求 把 10 个 数字 全 部 显示 出 来 时 , 亮 灯 / 灭 灯 的 切换 次 数 最 少 的 显示 顺序 , 并 
求 这 个 切换 次 数 。 


只 要 7 个 比特 就 能 显示 全 部 数字 3 呢 ， 前 人 的 智慧 真 伟大 ! 


这 次 只 是 遍历 全 部 显示 顺序 ， 全 量 搜索 求 所 有 切 损 次 数 吧 。 


即便 是 全 量 搜索 ， 也 请 考虑 一 下 怎样 才能 缩短 处 理 时 间 。 
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0 一 |: 
2 
2 二 9: 
3 一 4: 
4 一 5: 
5 一 6: 
0=*7: 
T= 
8 一 9: 


二 
从 从 从 从 从 人 仆人 守 妆 


举 个 例子 ， 如 下 所 示 ， 当 显示 顺序 为 0123456789 时 ， 需 要 切换 28 次 。 


切换 A、D、E、F ) 
切换 A、C、D、E、G ) 
切换 C、E ) 

切换 A、D、F ) 
切换 A、B、D ) 
切换 E ) 

切换 B、D、E、F、G ) 
切换 D、E、F、G ) 
切换 E ) 


只 需要 把 0~9 这 10 个 数字 的 排列 顺序 全 部 遍历 一 下 就 可 以 了 。 这 
个 做 法 需要 遍历 10!( 10 的 阶乘 ) 次 ， 全 量 搜索 就 足以 解 题 了 。 


的 确 可 以 通过 全 量 搜 索 来 解 题 ， 问 题 是 ， 切 损 处 理 怎么 实现 呢 ? 


因为 只 有 总 灯 和 灭 灯 两 种 状态 ,所 以 我 觉得 ， 和 问题 中 一 样 ， 用 二 进 
币 数 表示 就 可 以 了 。 


0 和 1 的 切换 用 位 运算 可 以 高 速 实现 。 不 过 , 本 题 用 民 或 运算 (XOR> 
处 理 起 来 比较 简单 。 异 或 运算 在 Q21 里 出 现 过 哦 。 


根据 题 意 ， 


用 Ruby 实现 时 ， 代 码 如 代码 清单 37.01 所 示 。 


代码 清 间 


37 .01 (q37_01.rb) 


# 定义 表示 0 ~ 9 的 比特 序列 
Dat = ODLLELILO ODOTIOOO00. OBLLOTHNOL 0PIITELOO0D ‘OBO 
OBLTOLLOTI OBLOLINNL OSIOOODO O00ITITETDII O05TIN0 


# 


nm = 6 


每 次 设置 翻转 比特 序列 的 值 为 初始 值 
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# 在 0 ~ 9 组 成 的 序列 中 ， 搜 索 替 换 次 数 最 少 的 序列 


(0..9) .to a.permutation.each{ |sed| 
sum = 0 


(seq.size - 1) .times{|j| 
# 执行 异 或 运算 ， 计算 结果 


中 1 的 个 数 
sum = (bitlsedly)) pitlseqljr1)l) tos(2) oount( nn 
break if min <= sum 


} 


a 


EUREIna em 


Ter naa 


臭 是 测 单 易 境 呢 。 


运算 ” 吧 ， 


程序 遇 辑 是 “用 数组 表示 显示 顺序 , 对 相 邻 元 系 执 行 异 或 


不 过 ， 处 理 速 度 还 是 太 慢 。 即 便 用 景 近 这 几 年 的 PC 执行 也 要 花费 
20 秒 左右 。 


本 题 的 关键 在 于 如 何 统计 比特 数 。 异 或 运算 的 速度 很 快 ,但 后 面 需 
要 转化 成 二 进 制 数 ,所 以 每 次 都 要 转换 成 字符 串 。 下 面 想 办 法 来 优化 一 
下 这 部 分 吧 。 


下 面 我 们 对 循环 中 的 统计 部 分 进行 事先 处 理 ， 然 后 保存 起 来 ( 代码 
清单 37.02 )。 


代码 清单 37.02 (gq37_02.rb ) 


# 定义 表示 0 ~ 9 的 比特 序列 
bit = 


= lo PL bs 
OPEOTMIONE oo PL oP 
# 事先 得 出 异 或 运算 结果 
fl1ip = Array .new(1o0) 
(0 


oj) 人 
flip[il = 


= Array.new(10) 
(0..9) .each{ |j| 
Fa 


sat lt oe ll ee (2 eole (wy) 
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} 
} 


# 每 次 设置 翻转 比特 序列 后 的 值 为 初始 值 
mm = 6 
(0..9) .to a.permutation.each{ |seq| 
sum = 0 
(seq.size - 1) .times{|j| 
# 获得 保存 好 的 值 
sum += fliplseq[lj]] [seaq[lj#1])] 
break if min <= sum 
b 


ma = wm es vm mim 


} 


puts min 


信教 字 也 就 是 0~9 这 ee 
了 
1 程 


种 组 合 。 上 面 这 个 这 些 组 合 之 间 的 异 或 运 入 。 


这 样 处 理 之 后 ， 大 概 只 需要 6 秒 就 可 以 处 理 完成 。 想 必 大 家 这 就 可 
以 实际 地 体会 到 字符 串 处 理 是 多 么 花 时 间 了 。 

下 面 进一步 挖掘 性 能 优化 的 关键 点 。Ruby 的 permutation 实现 速度 
不 快 ， 所 以 可 以 通过 代码 清单 37.03 这 样 的 写法 进一步 提升 性 能 。 


代码 清单 37.03 (aq37 03 .rpb ) 


# 定义 表示 0~9 的 比特 序列 
Be oD oo on oo on ono oo 
TL 0 oo 


# 事先 得 出 异 或 运算 结果 
@flip = Array.new(10) 
(0..9) .each{|i| 
@f£1iplil = Array.new(10) 
(0..9) .each{|j| 
Ge (ou 
} 
} 


# 每 次 设置 翻转 比特 序列 后 的 值 为 初始 值 
marne ss 
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# 递归 搜索 

# is used : 各 数字 是 否 已 使 
# sum : 已 使 用 数字 的 翻转 次 数 

# prev : 上 一 次 使 用 的 数字 
eeseacm SEEUSeOARESUmR eeev) 


if Ts Used.count (false) ==" 0 then 
@min = sum 
ese 


10.times{|i| 
TE mueller 
Ts Usedlil = true 
next sum = 0 
next eum = sum rofliplprev) li i prev >=0 
Searcm( rienused nezt su i om nexte sam 
usnusealnle Eelse 
end 
} 
erel 
Send 
search (Array .new(1o0, false), ‘0, 1) 
puts @min 


这 样 改写 后 ， 人 处 理 时间 就 可 以 控制 在 0.5 秒 以 内 了 。 执 行 前 面 所 有 
程序 都 可 以 得 到 结果 “13”。 


用 JavaScript 实现 时 ， 代 码 如 代码 清单 37.04 所 示 。 


代码 清单 37.04 (937 04.js ) 


oe [els Ooo OOO “Osa (oo; 
ool oa ol ol orto 0 ent oo oo os la 0 La 


/* 统计 比特 序列 中 1 的 个 数 */ 


function piteount 区) 
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二 人 (055555555) (> 0SSSSSSS 
2 = (0 2 0 
X= (X & OxXOFOFOFOF) + (X >> 4 & OxOFOFOFOF); 
OORROORERE LE SOONURRONURERE 
= e00000REEE) EGR OUORRRS)E 

en 

} 

var fl1ip = new Array (10), 

ESEO(G 0 0 


Fl nw aeav (lo 
Bos (d= OF TF LO Fd)( 


} 
} 


Mearemin 63 
function search(is used, sum, prev){ 
if (is used.indexOof (false) == -1){ 
mimn = eum: 


} 


} 
} 


usmused elser talse Els talsen ralses 


searenl(reaUsed on 
console.log (min); 
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el neevne (tal srl 


else { 
ES 
SEO 
Ssedly eues 
warenext aoume oo, 
Ee = 0 
nextasumn = eum ll ev 
ue (nn ne svn) 
Searem(Lenused nexth som 1 
Tsusedla alses 


} 


false, false, false, false, falsel]; 


( 例 : 按照 0 一 8 一 6 一 5 一 9 一 4 一 1 一 7 一 3 一 2 这 个 顺序 显示 ) 
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I 409 外 
38 :填充 白色 


pIIIIIII IIIII III II II II I I I II I I II III II III III II I IIIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


把 4x4 的 方 格 分 别 涂 成 黑色 和 白色 。 对 任意 方 格 ， 当 选中 一 个 方 
格 的 时 候 对 该 方 格 所 在 的 行 和 列 全 部 进行 反 色 《〈 和 白 一 黑 ， 黑 一 白 ) 填充 
处 理 〈 其 他 行列 不 变 )。 
只 要 反复 进行 这 个 处 理 ， 无 论 初始 状态 如 何 ， 一 定 能 使 所 有 方 格 全 
部 变 为 白色 ( 医 目 )。 这 里 我 们 要 按照 能 以 最 多 次 数 把 所 有 方 格 都 变 成 白 
色 的 顺序 来 选择 方 格 ( 不 能 重复 选择 同一 方 格 )。 


EE 


选择 第 2 行 第 1 列 的 方 格 反复 操作 


反 转 方 格 颜色 


思考 这 种 选择 方 格 次 数 ( 反 色 操作 的 次 数 ) 最 多 的 初始 状态 ， 并 求 这 个 最 
举 个 例子 ， 如 占 E 加 所 示 的 情况 只 需要 3 次 操作 就 能 把 全 部 方 格 
变 为 白色 ( ) 


We 


选择 第 1 行 第 2 列 的 方 格 ”选择 第 2 行 第 4 列 的 方 格 ”选择 第 3 行 第 3 列 的 方 格 
全 部 填充 为 白色 时 的 示例 ( 方 格 选择 次 数 为 3 次 ) 
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还 要 考虑 会 不 会 变 成 无 限 循环 吧 ? 我 只 能 想到 “只 要 出 现 了 相同 的 柑 
式 就 终止 循环 ”。 


在 出 现 相 同 模式 的 时 候 终 止 搜索 也 是 一 种 办 法 。 不 过 ， 如 果 按 照 题 


意 ， 从 所 有 初始 状态 开始 遍历 并 判断 方 格 是 否 会 全 部 变 为 白色 ,那么 花 
费 的 时 间 就 会 很 长 。 


其 实 可 以 根据 题 意 逆向 思考 ,我 们 可 以 把 问题 解读 成 “从 全 部 方 格 
都 是 白色 的 状态 开始 反 转 颜色 并 人 遍历, 直至 回 到 初始 状态 , 然后 找 出 其 
中 反 转 操作 次 数 最 多 的 初始 状态 ”。 


说 起 来 ， 好 像 之 前 的 问 题 里 也 提 到 过 “逆向 思 者 ” 呢 


这 么 一 逆向 思考 就 可 以 则 道 , 出 现 相 同 模式 时 ,一定 还 有 其 他 重 好 拘 
摊 作 步骤 。 


接 下 来 就 是 决定 怎么 表示 每 个 方 赂 上 的 颜色 了 。 


颜色 只 有 黑色 和 白色 ， 因 此 可 以 把 黑色 设 为 1， 白 色 设 为 0， 而 
4x4 的 16 个 方 格 可 以 用 16 个 比特 位 的 整数 来 表示 。 这 样 一 来 ， 问 题 
出 现 的 医 辐 就 可 以 表示 为 “1001110100001011”( 每 4 位 表示 1 行 )。 

反 转 颜色 可 以 用 位 运算 ( 异 或 运算 ) 来 进行 。 然 后 ， 只 需要 为 反 转 
操作 准备 一 个 位 掩 码 就 可 以 简洁 地 实现 了 。 


用 1IP 地 址 给 同 络 分 段 时 的 “ 子 网 掩 码 ” 用 的 就 是 位 提 码 这 个 思路 。 
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] Ruby 实现 时 ， 代 码 如 代码 清单 38.01 所 示 。 


| 代码 清单 38 . 01 (q38 01.rb ) 


# 设置 反 转 用 的 掩 码 
mask = Array.new(16) 
4.times{ |row| 
4.times{ |col| 
mask[row * 4 + Col] = 
COP (ew 4 | (Oo OO 一 El 


max = 0 
# 保存 步骤 数 的 数组 
StEepSEE= ATYaYSmew <<16 ET) 
# 从 所 有 方 格 都 为 白色 开始 
stepslo = 
# 保存 检查 对 象 的 数组 
scanner = [0] 
while scanner.size > 0 do 
eneeke = Seanner eneit 
nextasteps stepeslehneerl a 
16.times{ |i| 
n= eheck mask [i] 
# 如 果 未 检查 过 ， 则 进一步 搜索 
aStepall== hen 
stepsln] = next steps 
Seanner push(n) 
ma = nextesteps Lt mo nextdsteps 
end 


入 


} 


end 


puts max # 最 大 步骤 数 
puts steps.index(max) .to_s(2) # 初始 状态 的 方 格 : 全 黑 
p steps.select{|i| i == -1} # 不 存在 不 能 全 部 变 为 的 初始 状态 


前 8 行 代码 就 是 设置 位 掩 码 吧 ? 可 是， 需 6 行 我 完全 看 不 异 。 


可 以 试 试 把 实际 的 roW 和 CO| 依 况 代 入 并 计算 。 从 二 进 制 数 这 一 点 
来 里 考 就 会 发 现 , 第 6 行 表示 的 是 反 转 曲 位 置 。 举 个 例子 , 当 row 和 
Col 都 是 0 的 时 候 ， 这 个 二 进 币 数 应 该 号 0b1000100011111。 
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原来 如 此 。 是 杷 像 |[EE 加 左 他 这 样 的 位 置 反 转 的 意思 吧 。 当 row 和 
col 都 是 2 的 时 候 就 是 IEE 加 右 负 的 图 y 吧 。 


row=0、col=0 row=2、 col=2 


row 和 col 同 时 为 0 和 同时 2 的 情况 


执行 代码 后 可 以 看 到 ， 结 果 是 “16”， 并 且 当 步骤 数 为 16 时 ， 初 始 
状态 是 全 部 方 格 都 为 “黑色 "。 此 外 ,我 们 还 可 以 看 到 ， 数 组 中 全 部 序 
列 都 能 求 得 相应 次 数 ， 也 就 是 说 ， 无 论 初始 状态 如 何 ， 最 终 一 定 能 都 变 
成 “白色 ”。 
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. 1001 ED 


39 反复 排序 
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假设 有 标注 了 1, 2, 3, …, n 各 个 数字 的 n 张 卡片 。 当 第 1 张 卡片 的 
数字 为 上 时 ， 则 把 前 大 张 卡片 逆向 排序 ， 并 一 直 重 复 这 个 操作 。 举 个 例 
子 ， 当 n = 6 时 ， 如 果 由 “362154” 这 个 序列 开始 ， 则 卡片 的 变化 情况 


如 下 [e3 

[3lel2[11s|4) 

I 第 1 张 卡片 是 3， 把 前 3 张 卡片 逆向 排序 
[2lel3111s|4) 

本 第 1 张 卡片 是 2， 把 前 2 张 卡片 逆向 排序 
[6l2|3111s|4) 

es 第 1 张 卡片 是 6， 把 前 6 张 卡片 逆向 排序 
[4ls|1]3l2|g) 

i 第 1 张 卡片 是 4， 把 前 4 张 卡片 逆向 排序 
3l1l5l41216 

1 汪 第 1 张 卡片 是 3， 把 前 3 张 卡片 逆向 排序 
[511]314l2|g) 

EF. 第 1 张 卡片 是 5， 把 前 5 张 卡片 逆向 排序 
(214l3l11sle) 

i 第 1 张 卡片 是 2， 把 前 2 张 卡片 逆向 排序 
4j2l3l15l6 

ee 第 1 张 卡 片 是 4， 把 前 4 张 卡片 逆向 排序 
3l21415|6 (第 1 张 卡片 是 1， 故 卡片 顺序 不 再 变化 ) 


这 种 情况 下 ， 卡 片 顺序 一 共 变 化 8 次 后 就 无 法 继续 变化 了 。 


求 当 n = 9 时 ， 使 卡片 顺序 变化 次 数 最 多 的 9 张 卡片 的 顺序 。 


比 起 按照 题 中 的 方式 处 理 ， 逆 向 思考 的 方 式 可 以 更 好 地 缩小 搜索 范 
围 哦 。 
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1S3 


首先 按照 题 中 的 方式 直接 进行 全 量 搜索 。 如 果 用 Ruby 递归 搜索 ， 
则 代码 如 代码 清单 39.01 所 示 。 


| 代码 清单 39.01 ( q39_01.rb) 


N = 9 
@max = 0 
@max list = Hash.new 


def solve(cards, init, depth) 
stmeardslho .=thenm 
if @max < depth then 
@max = depth 
@max list.clear 


endqd 
@max Jist [init) = Cards if @max ==" depth 
else 
solve (cards [0.. (cards[0] - 1)] .reverse + cards[cards[0]..N], 
ndtee epEhne rd) 
end 


end 


EM oma pernutationeacnl son eo. 
puts @max 
puts @max list 


“卡片 初始 状态 用 数组 表示 ， 在 数组 第 1 个 元 素 变 为 1 之 前 遍历 所 有 
情况 "， 是 这 样 网 逻辑 吧 ? 这 种 程度 曲 代 码 ， 我 已 经 理解 3 了 哦 。 


我 仔细 想 3 想 ， 发 现 当 第 1 张 卡片 数字 为 hn 的 时 候 ， 下 一 步 这 张 卡片 
就 会 变 成 定 n 张 卡片 。 这 么 一 来 ， 第 nn 张 卡片 为 n 的 序列 就 一 定 存 在 
上 一 步骤 。 


能 注意 到 这 一 点 非常 重要 。 如 果 能 过 滤 掉 无 需 搜 索 的 序列 ， 那 么 搜索 
范围 可 以 缩小 ， 也 就 能 进一步 缩短 处 理 时 间 。 


如 果 我 们 试 着 不 使 用 permutation， 而 是 使 用 递归 生成 序列 ， 并 排除 
第 n 张 卡片 是 的 情况 ， 则 可 以 得 到 代码 清单 39.02 这 样 的 实现 。 


154 | 第 3 章 中 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 


版 权 


代码 清单 39.02 ( qd39 02.rpb ) 


@max = 0 
@max list = Hash.new 


def solve(cards, anit depth) 
Ufoaresloln then 
if @max < depth 
@max = depth 
@maxel et eleare 
end 
@maxo lustlinitl soards iflonax <== depth 
else 
solve (cards [0.. (cards[0] - 1)] .reverse + cards [carqds [0] . .N] ， 
init, depth + 1) 
end 
end 


def pattern(used, unused, index) 
if unused.empty? 
solvetused used eo) 


ese 
unused.select{|i| index + 1 != i}.each{|i| 
pattern(used + [i], unused - [i], index + 1) 
} 
end 
Sng 


Datenm dl oN oR eo) 
puts @max 
puts @max list 


事实 上 ,这 个 问题 也 可 以 用 之 前 提 到 的 “北向 思考 ”方法 ,从 第 1 
个 数字 为 1 的 情况 倒 推 (代码 清单 39.03 )。 这 样 可 以 进一步 缩小 搜索 范 
围 ， 从 而 提高 处 理 速 度 。 
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代码 清单 39.03 (aq39 03 .rpb ) 


N = 9 
@max = 0 
@max list = Hash.new 


defvsolvel(cards, init, depth) 
(1.. (cards.size - 1)).each{|i| 
i i Sl Se ‘ens Ma 
Solvelcardslo SI reverse Gore li rN 
init, depth + 1) 
eheeleo = teue 
end 
} 
if @max < depth then 
@max = depth 
@max list.clear 
eng 
@naxalns tleargdal nv Hon =- deptn 
emgel 


(2..N) .to a.permutation.each{|i| solve([1] + i, [1] + i, 0)} 
puts @max 
puts @max list 


前 面 3 个 程序 都 能 给 出 正确 答案 “615972834”。 处 理 次 数 为 30 次 ， 
处 理 结 束 后 答案 就 会 排 成 “123456789” 这 个 整齐 的 数字 。 
淡 不 过 如 果 n 等 于 其 他 值 ， 则 可 能 会 有 多 个 结果 ， 并 且 最 终 序列 也 不 一 定 是 这 样 整齐 
地 排序 后 的 序列 。 


这 里 仍然 是 用 permutation 实现 的 。 如 果 转 损 成 递归 实现 , 那么 用 


其 他 语言 也 可 以 简单 地 实现 这 里 曲 湿 辑 。 


EE 6, 1, 5, 9,7,2,8,3,4 
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. EI ET 
40 优雅 的 IP 地 址 
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可 能 本 书 大 部 分 读者 都 清楚 ，IPv4 中 的 IP 地 址 是 二 进 制 的 32 位 数 
值 。 不过， 这 样 的 数值 对 我 们 人 类 而 言 可 读 性 比较 差 ， 所 以 我 们 通常 会 以 
8 位 为 1 组 分 割 ， 用 类 似 192.168.1.2 这 种 十 进 制 数 来 表示 它 ( 国 四 )。 


1000000101010000000000100000010 了 以 8 位 为 1 组 分 着 | 


11000000 10101000 00000001 00000010 


WR ] 
192 168 1 之 
5 


IP 地 址 ( IPv4 ) 


这 里 ， 我 们 思考 一 下 十 进 制 数 0~9 这 10 个 数字 各 出 现 1 次 的 IP 地 
址 ( 像 正 常情 况 一 样 ， 省 略 每 组 数字 首位 的 0。 也 就 是 说 ， 不 能 像 
192.168.001.002 这 样 表 示 ， 而 要 像 192.168.1.2 这 样 来 表示 )。 


求 用 二 进 制 数 表示 上 述 形式 的 IP 地 址 时 , 能 使 二 进 制 数 左 右 对 称 的 IP 地 址 的 
个 数 ( 用 二 进 制 数 表示 时 不 省 略 0， 用 完整 的 32 位 数 表示 )。 


IPv4 曲 IP 地 址 用 十 进 利 数 表示 时 ， 以 点 号 分 制 曲 各 部 分 数字 都 在 
0~255 这 个 范围 内 。 每 个 数字 都 使 用 到 并 不 难 , 难 的 是 “各 出 现 1 


We IP 地 址 是 用 点 号 分 割 的 ， 注 意 到 这 一 点 ， 就 可 
通过 求 “比特 副 为 8 位 且 左 右 对 称 ” 的 数值 ， 并 将 其 设置 在 以 点 
分 上 来 解 题 。 
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思路 

按照 题 意 ， 用 十 进 制 数 表示 时 要 使 用 0~9 这 10 个 数字 各 1 次 , 那 
么 最 高 位 是 除 0 以 外 的 9 种 情况 ， 而 其 他 各 个 数位 可 分 别 使 用 0~9 这 10 
个 数字 各 1 工 次 ， 其 排列 组 合 一 共 9! (9 的 阶乘 ) 种 ， 所 以 总 共 要 遍历 
9x9! 种， 也 就 是 3265920 种 情况 。 


… 需 要 的 处 理 时 间 很 长 ， 


1P 地 址 各 个 部 分 上 的 数值 景 大 只 能 是 255， 因 此 用 10 个 数字 表示 就 
是 “2 组 3 位 数字 ，2 组 2 位 数字 ”这 4 组 数字 (1XX, 2XX, XX， 
XX2?， 这 个 思路 可 以 吧 ? 


这 也 是 一 种 思路 ， 不 过 这 里 我 们 试 试 逆 向 思 者 ， 从 二 进 制 数 开 始 处 
理 吧 。 


要 想 求 左右 对 称 的 二 进 制 数 ， 可 以 通过 把 16 位 的 二 进 制 数 逆序 排 
列 ， 并 将 结果 与 该 16 位 的 二 进 制 数 本 身 拼合 ， 即 生成 32 位 数 来 求 得 。 
因为 是 16 位 ， 所 以 全 量 搜索 时 只 需要 遍历 65536 种 情况 即 可 。 

然后 ， 把 这 个 二 进 制 数 转换 成 十 进 制 数 ， 分 别 使 用 0~9 这 10 个 数 
字 各 1 次 即 可 。 


人 这样- 来 , 就 比 遍 历 十 进 制 数 赐 方法 更 实际 了 呢 。 剩 下 网 就 只 是 翅 二 
进 币 数 转换 成 十 进 制 数 ， 按 比特 位 分 割 就 可 以 了 。 似 乎 用 目前 网 和 


识 就 完全 可 以 解 题 呢 。 


用 Ruby 实现 时 ， 代 码 如 代码 清单 40.01 所 示 。 


代码 清单 40 .01 ( q40_01.rb ) 


ip = Array.new 
Enel 
# 反 转 16 位 的 数字 


0 = (00 reverse toons(2) 


# 科 2 Ss 二进制 数字 符 串 
Sr= Eele on et a | res a 


158 | 第 3 章 中 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


# 如 果 只 用 到 了 10 个 数字 和 点 号 ， 则 添加 到 数组 中 


ela) es) eS ou (Wu) sveole eel =e tat 


puts jp.size 
puts ip 


执行 程序 可 得 到 正确 答案 “8”， 因 而 符合 条 件 的 IP 地 址 有 8 个 ， 
如 下 模 所 示 。 


符合 条 件 的 IP 地 址 


34.179.205.68 34.205.179.68 
68.179.205.34 68.205.179.34 
179.34.68.205 179.68.34.205 
205.34.68.179 205.68.34.179 

看 看 这 些 结果 ， 能 不 能 发 现 什么 规律 呢 ? 


我 如 道 31 “左右 对 称 ” 也 就 是 说 ， 根 本 没有 尾村 让 16 位 对 称 ， 吕 
时 遍 历 8 位 就 中 哆 了。 


用 十 进 制 数 表示 的 时 候 , 如 果 以 点 号 分 割 的 各 部 分 左右 对 称 ,那么 
整体 也 就 左右 对 称 , 因而 只 需要 调查 0~255 这 些 数 对 应 的 二 进 制 数 中 左 
右 对 称 的 数 就 可 以 了 。 也 就 是 说 ，A.B.C.D 这 种 形式 中 ，A 要 和 了 D 对 
称 ，B 要 和 C 对 称 。 

下 面 我 们 试 着 找 出 A~D 的 各 种 组 合 中 ，0~9 这 10 个 数字 各 使 用 1 
次 的 组 合 。 每 组 ( A, D ) , (B,C) 生成 的 IP 地址 有 8 种 情况 ， 所 以 用 
组 合 数 乘 以 8 就 可 以 求 出 结果 。 


用 Ruby 实现 时 ， 代 码 如 代码 清单 40.02 所 示 。 
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代码 清单 40.02 ( q40_02.rb ) 


en = 
256.times{|i| 
# 反 转 0~255 


Te = (S08 si) everse toil(2) 


人 


= EONSTt LOVEONS 

# 如 果 0~9 这 10 个 数字 各 使 用 1 次 ， 就 符合 条 件 

an I eS ae en en 
end 


} 


坟 丘 


val.combination(2) {|a, b| 
# 如 果 0~9 这 10 个 数字 各 使 用 1 次 ， 就 形成 分 组 


ae 让 


} 


# 输出 各 分 组 组 合 结果 


puts 


i < rev then 


轩 


Buslhllia SIE (a os um i 


IDRISLZe 8 


只 需要 遍历 256 个 数字 ， 所 以 几乎 一 瞬间 就 能 求 得 鉴 案 ! 


洞 见 问 题 特征 的 能 力 非常 重要 吃 。 
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用 1 个 数字 表示 1234 


pIIIIIIIIIIIII II I II II II I I I II I I I II I II II I I II II II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


这 里 我 们 思考 一 下 通过 四 则 运算 ， 只 使 用 1 个 数字 来 表示 某 个 数 的 
情况 。 例 如 1000 这 个 数 ， 如 果 只 用 1， 则 可 以 用 7 个 1, 即 1111 - 111 
来 表示 ; 如 果 只 用 8， 则 可 以 用 8 个 8， 即 8 +8 +8+88+888 来 表 
示 ; 如 果 只 用 9， 则 可 以 用 5 个 9， 即 9:*9 + 999 来 表示 。 

假设 我 们 只 能 使 用 四 则 运算 符 ( + 、- 、x 、= ), 不 能 使 用 改变 
运算 优先 度 的 括号 ， 而 运算 顺序 同 中 的 这 入 法 风 | 即 “ 先 乘除 后 加 
减 ”。 此 外 ， 使 用 除法 运算 时 结果 只 取 整 数 ( 璧 如 111:11 = 10)。 


求 只 用 1 个 数字 表示 1234, 且 要 尽 可 能 少 地 使 用 该 数字 时 , 使 用 哪个 数字 才 
能 使 该 数字 出 现 个 数 最 少 呢 ? 最 终 的 算式 又 是 怎样 的 呢 ? 


Q | 一 rr 
41 只 


四 则 运算 我 们 在 QO2 中 学 习 过 。 不 过 如 果 只 用 1 个 数字 , 会 不 会 无 论 
用 多 少 个 该 数字 ， 也 没 办 法 表示 景 终 的 结果 呢 ? 感觉 会 钨 入 无 限 循 
环 吧 。 


全 TQ 人 [如果 用 “1” 来 表示 景 终 的 结果 ， 那 么 通过 简单 牛 加 法 “ 景 终结 果 ” 
se ee 就 能 完成 。 如 果 使 用 其 他 数字 , 那么 景 多 使 用 “ 景 终结 果 


的 两 们 ”那么 多 的 数字 , 应 该 也 就 可 以 了 。 侦 如 , 如 果 使 用 数字 “9 "， 
则 可 以 通过 “ 景 终 结果 ”个 “9 9” 相 加 来 表示 景 终 结果 。 
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思路 

有 些 编 程 语言 里 有 支持 直接 执行 算式 的 函数 ， 有 些 编程 语言 则 没 
有 ， 这 一 点 在 Q02 中 提 过 。 对 于 存在 eval 函数 的 语言 ， 只 需要 生成 算 
式 再 执行 eval 就 可 以 得 到 结果 。 

另外 ， 对 于 除法 和 运算， 有些 编程 语言 会 取 整 ， 有 些 编程 语言 则 会 保 
留 小 数 部 分 。 如 果 保 留 小 数 部 分 ， 则 不 能 直接 用 于 本 题 ， 这 就 需要 寻找 
其 他 方法 。 

接 下 来 关键 在 于 怎么 生成 算式 。 如 果 使 用 Ruby， 可 以 利用 repeated_ 
permutation 函数 来 生成 重复 排列 ， 因 此 只 需要 用 运算 符 排列 组 合 就 可 以 
生成 算式 了 。 

另外 ，Ruby 的 eval 函数 对 除法 运算 作 了 取 整 处 理 ， 有 具体 如 代码 清 
单 41.01 所 示 。 


代码 清单 41.01 (q41_01.rb ) 


EU | 
feound = false 
Tene= 
while !found do 
op.repeated permutation (len){|o| 
(onaseaemlle dl 
expr oo inject (tons) | to) 
if eval (expr) == 1234 then 
puts expr 
found = teue 


增多 使 用 的 数字 ， 然 后 生成 算式 啊 。 寓 7 了 7 行 有 个 inject， 
的 用 法 和 之 前 不 一 样 ， 这 是 什么 用 法 啤 ? 


| 图 韦 


加 
总 觉得 这 


目前 为 止 ，inject 都 用 在 数组 的 加 法 运算 上 。 上 录用 法 是 利用 inject 
对 特 请 数组 重 夏 执行 某 个 代码 块 。 可 以 看 到 , 这 里 先 在 括号 内 设置 3 


初始 值 ， 然 后 针对 数组 元 系 重 复 排列 了 运算 等 和 数字 。 
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所 以 这 里 不 只 是 单纯 的 加 法 ， 还 执行 了 字符 串 连 接 人 处理 呢 。 


使 用 其 他 编程 语言 时 ， 可 能 还 要 自己 实现 重复 排列 ， 所 以 下 面 我 们 
利用 递归 把 算式 的 生成 实现 一 下 ( 代码 清单 41.02 )。 


代码 清单 41 .02 ( q41 02.rb ) 


@found = false 


@OP = 
def check(n, expr, num) 
if nn == 0 then 
if eval (expr) == 1234 then 


puts expr 
@found = true 
end 
else 
@op.each{ |i| 
check(n - 1, "#{expr}#{i}#{num}", num) 
】 
end 
end 
Ten = 1 
while !@found do 
(Teo ona eacpllmaml 
check (len, num, num) 
} 
len += 1 
end 


如 果 是 不 支持 eval 的 语言 , 那么 还 需要 实现 算式 运算 部 分 , 除法 也 
要 作 特 殊 处 理 。 不 过 这 只 是 测 单 的 四 则 运 寓 ， 所 以 太 家 可 以 党 试 实 
现 一 下 。 


99999-:-9-:9 
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太 方 便 了 就 会 懒得 记 吗 


随 着 手机 、 智 能 手机 、PC 的 普及 ， 越 来 越 多 人 觉得 “已 经 不 会 写 
字 了 ”。 我 自己 也 觉得 用 手写 字 的 机 会 越 来 越 少 了 。 

不 仅仅 是 文字 。 十 年 前 开车 的 时 候 ， 副 驾驶 座 上 的 人 还 会 一 手 拿 
着 地 图 帮忙 指 路 。 而 现在 ， 很 多 车 都 安装 了 导航 系统 。 方 便 的 语音 导 
航 功能 让 我 们 不 再 需要 费劲 去 记 路 线 。 不 仅 如 此 ， 似 乎 连 方向 感 都 跟 
着 变 差 了 。 相 比 依赖 地 图 的 时 代 ， 现 在 似乎 记 不 住 那些 路 线 了 ， 或 许 
应 该 说 是 “ 没 必要 ” 记 了 。 

电话 号 码 也 “ 没 必要 ” 记 了 。 手 机 普及 前 ,很 多 人 都 能 记 住 自己 
家 里 的 电话 号 码 。 因 为 常常 使 用 公共 电话 往 家 里 打 电 话 ， 所 以 可 能 是 
一 遍 又 一 遍 按 数 字 记 住 的 。 不 过 最 近 都 用 手机 、 物 能 手机 了 ， 只 需要 
从 联系 人 列表 里 找 一 下 就 可 以 。 很 多 人 甚至 连 家 人 的 电话 号 码 都 记 不 
住 了 。 

编程 也 是 这 样 。 前 几 年 代码 还 都 要 一 行 一 行 用 编辑 器 来 写 ， 现 在 
很 多 情况 下 都 只 需要 利用 和 输入 自动 补 全 功能 ， 从 备 选 的 语句 里 选择 一 
下 就 好 了 。 这 样 一 来 ， 具 体 的 方法 名 称 等 都 不 再 需要 记忆 。 直 接 使 用 
高 级 语言 里 封装 好 的 函数 也 是 其 中 一 个 例子 。 

方便 是 方便 了 ， 但 也 许 环 境 稍 加 变化 ， 我 们 就 不 会 编程 了 。 平 时 
一 定 要 注意 ， 不 要 只 依赖 方便 的 工具 环境 ， 还 要 锻炼 应 对 紧急 情况 的 


能 力 。 
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EI ET 
小 ? 将 牌 洗 为 送 序 


pIIIIIIIIIIIII II I II II I II I I I II I I I II I IIII II I II II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


扑克 或 者 花 牌 的 洗 牌 方法 有 很 多 种 。 假 设 这 里 有 2n 张 牌 ， 我 们 从 
中 抽取 n 张 牌 , 放置 在 其 他 牌 上 面 ， 然 后 重复 这 个 操作 (不 是 分 散 地 抽 
取 ， 而 是 抽取 连续 的 一 省 牌 )。 这 个 过 程 如 国峰 所 示 。 


> 


a 


图 洗 牌 方法 

重复 这 个 操作 ， 直 到 牌 的 顺序 和 最 2 ( 抽出 2 和 3 ) 

初 相反 。 举 个 例子 ， 当 = 2 时， 要 使 引 s510 
4 张 牌 逆序 ， 则 需要 经 过 4 个 步 又 的 操 | …… 第 2 步 (抽出 3 和 1 ) 

作 (假设 最 初 的 牌 从 上 到 下 分 别 是 1、 [91214 
2, 3、 4 14…… 第 3 步 (抽出 2 和 4) 
doa 第 4 步 ( 抽出 4 和 3 ) 

4l3l211 


求 当 n = 5 时 ， 要 使 10 张 牌 逆序 排列 最 少 要 经 过 多 少 步 ? 


似乎 只 要 全 量 搜索 就 可 以 求 出 鉴 寅 了 。 那 这 里 是 不 是 用 反 向 搜索 曲 方 
法 比较 快 些 呢 ? 


如 果 单 纯 地 反 向 搜索 ， 不 如 组 合 几 种 方法 


试 试 ? 


搜索 范围 并 不 会 缩小 ， 
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这 里 ， 我 们 用 数组 表示 2n 张 牌 ， 并 为 每 张 牌 设 置 数字 编号 ， 移 动 


数组 元 素 表示 洗 牌 。 


然后 ， 确 定 洗 牌 时 牌 的 选择 范围 ， 即 通过 按 顺序 改变 选择 范围 的 起 


点 来 选择 下 一 个 候选 范围 。 虽 然 抽 出 的 牌 固定 是 n 张 , 但 也 要 注意 选择 
范围 不 能 超出 数组 下 标的 上 限 。 


如 果 初 始 状态 是 像 1, 2, 3, 4, 5, 6 这 样 榨 顺序 排列 的 整数 ， 那 么 如 
果 洗 上 牌 曲 结果 是 6, 5, 4, 3, 2, 1， 就 代表 洗 牌 结束 ， 对 吧 ? 


用 Ruby 实现 时 ， 代 码 如 代码 清单 42.01 所 示 。 


代码 清单 422 .01 ( q42_01.rb ) 


n 


# 设置 初始 值 


eardeD = (0 nn:2) EoRadl 
amswee (ln ODEeversss 
depehny = 


while true do 


end 


puts depth 


= 5 


# 搜索 

cards = Gards.eachn with opjeect([]) do |e, result| 
TEolmn) (es ol no en 

end 

Brealnt coarse nee (answen) 

depth += 1 


如 果 n = 4， 那 么 程序 几乎 一 瞬间 就 能 执行 完毕 。 不 过 ， 本 题 的 n 


为 5， 所 以 需要 一 些 时 间 。 下 面 尝 试 优化 一 下 。 
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如 果 再 结合 反 向 搜索 ,还 可 以 进一步 缩小 本 题 的 搜索 范围 。 也 就 是 
说 ， 不 仅 可 以 从 起 始 状态 开始 搜索 , 还 可 以 从 最 终 状 态 倒 推 , 直到 得 到 
同样 的 序列 为 止 ， 这 样 也 能 求 得 最 少 步骤 。 


举 个 例子 ， 如 果 是 像 代码 清单 42.02 这 样 的 实现 方法 ， 几 乎 在 0.5 
秒 之 内 就 能 得 出 结果 。 这 个 实现 同样 采用 了 广度 优先 搜索 ， 不 过 这 里 还 
通过 反 向 洗 牌 进行 了 优化 。 


代码 清单 422 .02 ( q42_02.rb ) 


n=5 


# 从 起 始 状态 开始 搜索 的 初始 值 


Ewe = (le a2 el 

# 从 最 终 状 态 开始 反 向 搜索 的 初始 值 
bw = [(1..n*2) .to a,.reversel] 
depthn = 


while true do 


# 从 起 始 状态 开始 搜索 


fw = fw.each with object([]) do |c, result | 
To (ee svt eo 
end 
break if (fw & bw) Size > 0 
depth 二 = 1 


# 从 最 终 状 态 开 始 反 向 搜索 


bw = bw.each with object([]) do |c, result| 
Ito (| esve ee oR nl ol 
eng 
break if (fw & bw).size > 0 
depth += 1 
ene 
puts depth 
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不 过 ,如果 刀 的 值 非常 大 ， 即 使 用 这 种 方法 也 雪花 很 长 时 间 才 能 求 出 
笑 帘 。 如 果 有 什么 规律 就 好 办 3 …… 


可 以 用 内 存 化 方法 保存 已 经 搜索 过 揭 序 列 ， 从 而 避 总 重复 搜索 哦 。 


双向 搜索 的 效果 和 注意 事项 


本 题 用 了 从 两 个 方向 同时 搜索 的 方法 。 这 个 方法 就 是 ， 在 从 初始 
状态 开始 搜索 的 同时 ， 也 从 最 终 状态 开始 反 向 搜索 。 实 际 上 这 种 方法 
并 不 是 同时 搜索 ， 而 是 交互 式 搜索 。 最 终 ， 在 中 间 位 置 附近 到 达 同 一 
状态 时 ， 就 能 得 出 最 少 步 骤 。 

搜索 树 结构 时 ， 搜 索 范 围 会 指数 式 扩 大 ， 因 此 当 搜 索 深 度 稍微 加 
深 时 ， 搜 索 范 围 就 会 大 幅度 扩大 。 这 时 用 双向 搜索 的 方法 可 以 控制 深 
度 。 如 果 是 二 又 树 ， 那么 当 单 方向 搜索 到 10 的 时 候 ， 搜索 范围 就 变 成 
210 了 ， 也 就 是 1024。 如 果 采 用 双向 搜索 ， 那 么 两 个 方向 的 搜索 深度 
都 是 5， 最 终 的 搜索 范围 则 是 25 + 25, 也 就 是 64。 搜 索 深度 越 深 、 范 
围 越 大 ， 效 果 越 明显 。 

不 过 ， 双 向 搜索 只 适用 于 最 终 状态 是 特定 值 的 情况 。 另 外 ,“ 能 不 

能 实现 从 后 向 前 搜索 ”也 是 一 个 问题 。 如 果 这 些 条 件 都 满足 ， 那 么 使 
用 双向 搜索 就 可 以 大 幅度 提升 性 能 ， 所 以 请 一 定 试 一 试 这 个 方法 。 
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. EI BT 
外 3 让 玻璃 杯 水 量 减 半 


ppIIIIIIIIIIII II I II II II I I I III I III I I II I II I I I I I II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


有 A、B、C 这 三 个 大 小 各 不 相同 的 玻璃 杯 。 从 A 杯 装 满 水 ，B 杯 
和 C 杯 都 是 空 杯 的 状态 开始 ,不断 地 把 水 从 一 个 杯子 倒 到 其 他 杯子 里 
去 。 

假设 不 能 使 用 任何 辅助 测量 工具 ， 且 倒 水 时 只 能 倒 到 这 个 杯子 变 为 
空 杯 ， 或 者 目标 杯子 满 杯 的 状态 。 重 复 这 样 的 倒 水 操作 ， 使 A 杯 剩 余 水 
量 是 “最 初 的 一 半 ”。 举 个 例子 ， 如 果 A、B 、C 的 容量 分 别 为 8、5、3， 
则 可 以 通过 下 列 步骤 来 实现 )。 


初始 状态 ”A 一 B >C C 一 人 A 
。 | 
5| BT 四 加 
c al dl 


辆 四 容量 为 A= 8、B = 5、C = 3 时 


这 里 规定 B 和 C 的 容量 是 “ 互 质 ” 的 两 个 数 ， 并 且 满 足 B + C = 
A 和 B > C 这 两 个 条 件 。 


求 当 A 的 容量 为 10~100 的 偶数 时 , 能 使 得 “ 倒 水 操作 后 A 杯 水 量 减 半 ” 的 
A 杯 、B 杯 和 CC 杯 的 组 合 有 多 少 个 ? 


Hi 
.0 只 旱 确 定 3 A、B、C 中 任意 两 个 玻璃 标的 容量 ， 剩 下 一 个 玻璃 杯 曲 
0 容量 也 就 确定 3 了 。 


单纯 作 全 量 搜索 时 效率 很 低 ， 所 以 请 优化 一 下 。 
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本 题 的 关键 在 于 “ 互 质 ”这 个 条 件 。 前 面 提 过 ， 互 质 就 是 除了 1 或 
者 -1 以 外 没有 其 他 公约 数 的 意思 。B 和 C 的 容量 互 质 ， 也 就 是 说 ， 它 
们 的 “最 大 公约 数 为 1”。 

为 避免 全 量 搜索 ,一旦 某 些 组 合 符合 问题 要 求 ， 就 结束 搜索 ， 从 而 
提升 性 能 。 如 果 用 数组 表示 A、B、C 中 剩余 的 水 量 并 用 Ruby 实现 ， 则 
代码 如 代码 清单 43.01 所 示 。 


代码 清单 423 .01 ( q43_01.rb ) 


derpsearcl(aber depEh maxyaber lo 


return false if log.has key? (abc) # 搜索 完成 
return true if abc[0] == max abc[0] / 2 # 终止 条 件 


leglabcl = depth 
[Ion maat on eae | 
# 从 A,B,C 中 选择 2 个 开始 倒 水 


Dc ol evel mb 
ED 
INWSEE IIEISCIEDII naxabeln Tabelsll mi 
next abcli] -= move 


next abcl[lj] += move 
Feturn tue esearen(next abe deptho cl mabe led) 
engd 


cnt = 0 

10.step(100, 2){|al 
(ea acngle 
1 ee 


if b.gcd(c) == 1 then # 互 质 ， 也 就 是 最 大 公约 数 为 1 
cis = 1 nl 0 0 0 a 
end 
} 
| 
Bucs ene 


这 里 是 以 当前 水 量 作为 参数 进行 递归 处 理 的 吧 。 可 是 第 8 行为 什么 要 
用 cloneoE? 
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这 里 的 clone 用 于 复制 数组 。 数 组 一 般 不 直接 传 值 ， 而 传递 索引 
(在 Ruby 中 也 可 以 说 是 “索引 的 值 ” )， 因 此 如 果 单 纯 地 赋值 ， 会 导致 递 
归 处 理 过 程 中 值 发 生 改 变 。 当 然 还 可 以 用 在 调用 函数 后 再 恢复 值 的 方 
法 ,不 过 ， 现 在 这 种 写法 可 以 避免 复杂 化 。 


如 果 从 数学 角度 思考 ， 了 还 有 重 简 单 拘 有 解法 ， 那 就 是 使 用 “扩展 区 几 里 
德 算法 ”0。 
扩展 欧 几 里 德 算法 

假设 x 和 J 是非 零 的 自然 数 ， 则 存在 整数 a 和 Db 使 ax 二 


by = gcd(x,。 而 当 x 和 yy 互 质 时 , 对 任意 整数 c, 一 定 存在 
整数 a 和 4b 使 ax + by = c。 


因为 B 和 C 的 容量 互 质 ， 所 以 存在 一 个 能 使 A 水 量 减 半 的 操作 次 
数 (进一步 说 ,虽然 问题 中 要 求 A 的 水 量 减 半 ， 但 事实 上 ， 最 终 我 们 
可 以 让 A 的 水 量变 为 任意 整数 )。 

因此 ， 只 要 我 们 求 出 满足 B +C =A 和 B>C, 以 及 B 和 C 互 质 
这 几 个 条 件 的 A、B、C 的 组 合 就 可 以 了 。 也 就 是 说 ， 没 有 必要 再 递归 
地 处 理 ， 只 需要 求 得 满足 条 件 的 组 合 即 可 。 


用 Ruby 可 以 简单 地 实现 ， 代 码 如 代码 清单 43.02 所 示 。 


代码 清单 43.02 ( q43_02.rb ) 


ene 
os ee pinoo 2 ad 
me (en 
lo = Se 
CE 
} 
} 


ES 和 cm 


中 ” Euclidean Algorithm， 又 名 胃 转 相 除 法 ， 是 求 两 个 正 整 数 之 最 大 公 因 子 的 算法 。 
一 一 编者 注 
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这 样 一 来 , 程序 就 变 得 简单 3, 处 理 速 度 也 非常 快 。 即 便 搜 索 的 数 再 
增 大 ， 处 理 时 间 也 不 会 增加 很 多 。 


序 还 是 需要 有 相关 知识 储备 才能 写 得 出 来 吗 。 


本 题 的 解说 到 此 结束 ， 不 过 大 家 还 可 以 想 想 怎样 才能 使 倒 水 的 况 数 
景 少 。 本 题 的 示例 中 ，A 的 容量 为 8 时 ， 珍 了 问题 中 提供 的 方法 外 ， 
还 有 另 一 种 方法 〈 两 者 都 景 少 需要 倒 水 7 次 > 


当 A、B、C 的 容量 分 别 为 其 他 值 时 ， 搜 索 后 得 到 的 最 少 倒 水 次 数 


如 下 例 所 示 。 

例 ) 10,9,1 一 9 次 
Wo zo Ce 

Te Ti 一 > Ti 次 
8;% 晤 ”二 1 深 
次 
Te = 

下 名次 
Te; 1 旋 次 

全 和 | 次 


册 6GAS9ES 


100, 51,49 一 99 次 


也 就 是 说 ，A 容量 减 半 所 需 的 最 少 倒 水 次 数 是 一 个 比 A 容量 本 身 


小 1 的 值 (如 果 B 和 C 容量 互 质 , 并 且 满 足 B + C = A 的 条 件 , 那么 
倒 水 次 数 就 无 关 紧 要 了 )。 
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质数 和 矩 阵 


pppIIIIIII IIIII III II II II I I I II I I II I II II I II I I II I III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


ET EE 
Qn 


在 n 行 n 列 的 方 格 内 逐 位 填写 位 数 的 质数 ， 要 求 不 仅 横 向 数字 
( 左 一 右 ) 是 质数 ， 纵 向 数字 ( 上 一 下 ) 也 要 是 质数 ,但 相同 的 质数 不 
能 出 现 多 次 ( 只 能 使 用 位 数 的 质数 ， 且 排除 0 开头 的 数字 )。 

举 个 例子 ， WU 
中 中 的 质数 是 11、13、17、37， 而 @ 中 的 质 素 是 23、29、37、97， 分 
rn 


当 n = 2，n = 3 时 的 示例 


求 当 n = 3 时 , 符合 要 求 的 数字 排列 方式 有 多 少 种 ? 例如 , 我 们 可 以 使 用 113、 
127、131、211、313、733 这 6 个 质数 组 成 上 述 @ 的 排列 方式 ( 另外 ， 和 矩阵 沿 对 
角 线 翻转 后 即使 质数 不 变 ， 排 列 方式 也 要 另外 计数 )。 


向 所 有 的 格子 里 依 况 填 入 从 0~9 曲 数字 好 像 不 太 现实 吗 。 


不 仅 要 选择 刀 位 数 的 质数 ， 
的 范围 。 


还 旱田 者 如 何 缩小 填 入 每 个 方 格 曲 数字 


如 果 行 和 列 同时 交 蔡 渤 值 ， 速 度 会 比较 快 。 
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对 于 这 样 的 问题 ， 如 何 缩小 搜索 范围 是 关键 。 如 果 单 纯 在 9 个 方 格 
内 填 和 人 数字 ， 再 检查 横向 和 纵向 的 数字 是 否 为 质数 ， 那 么 需要 进行 10? 
次 检查 。 


预先 痊 备 一 个 质数 的 数组 怎么 样 ? 3 位 数 鬼 质 数 并 不 是 很 多 ， 只 要 依 
况 设置 这 些 质数 ， 应 该 就 可 以 翅 搜索 范围 缩小 很 多 。 


“分 别 给 这 3 行 设置 不 同 的 质数 , 再 判断 纹 向 是 不 是 质数 ” 你 说 


的 是 这 种 方法 吧 ? 不 过 ， 这 种 方法 搜索 量 也 很 大 ， 处 理 时 间 需 要 花 划 
几 十 秒 。 


时 ， 的 确 会 出 现 太 多 非 质 数 的 值 。 轨 是 纵向 也 只 需要 搜索 质数 就 最 


ou， 


好 了 。 


这 里 稍 作 优化 , 即 当 第 1 行 的 数字 确定 之 后 , 把 以 这 些 数字 开头 的 
质数 设置 到 各 列 ， 接 着 检查 第 2、3 行 是 不 是 都 是 质数 。 


例如 用 Ruby 实现 时 ， 代 码 如 代码 清单 44.01 所 示 。 


代码 清单 44.01 ( q44_01.rb ) 


require "primen 


# 获取 3 位 数 的 质数 


primes = Prime.each(1000) .select{|i| i >= 100} 


# 以 首位 数字 生成 哈 希 表 

ED E [ly 

primes.chunk{|i| i / 100}.each{|k, v| 
prime hIk] EU 
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cnt = 0 


primes.each{ |r1| #0 
prime hl[r1 / 100] .each{ |c1| 3 
prime h[lr1i % 100 / 10].each{|c2| # 第 2 列 
prime h[r1 $ 10] .each{|c3| # 第 3 列 
2 (OO 200 lo 
(es 3 100 /10) 
(ns 


OO (G20 ELOE 0) 
if primes.include? (r2) SS primes.include? (r3) then 


Cnt t= el ures 


这 样 一 来 ， 处 理 时 间 就 缩短 到 了 5 秒 左 右 。 


如 果 能 确定 第 2 行 曲 第 1 位 数字 ， 还 可 以 进一步 缩小 范围 呢 。 


那么 ， 接 下 来 像 代码 清单 44.02 这 样 ， 行 和 列 交替 选 值 试 试 吧 。 


代码 清单 44.02 ( q44 02.rb ) 


SU Ln 


# 获取 3 位 数 的 质数 


primes = Prime.each(1000) .select{|il i >= 100} 


# 以 首位 数字 生成 哈 希 表 

prime h = {0 => 中 

peimnes cenanks (el eo eacnile| 
prime h[k] = v 


} 


175 


Q44 ”质数 矩阵 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


cnt = 0 


primes.each{ |r1| # 第 1 行 
prime hl[r1 / 100] .each{ |c1| # 第 1 列 
prime h[(c1 $ 100) / 10] .each{|r2| # 第 2 行 
prime ns 100) / 10] .eacn{|e2| # 第 2 列 
if (r2 % 100) / 10 == (c2 % 100) / 10 then # 中 心 点 
prime hl[cl1 % 10] .each{ |r3| 二 第 5- 衙 

ep 0 === (rr O00 lo them 


size == 6 
end 
end 
} 
end 
} 
} 
} 
} 
Put em 


ess= (0 L000 (2 0 TO (010) 
if primes.include? (c3) then # 第 3 列 是 不 是 质数 
ene = Eo 


处 理 时 间 一 下 子 缩短 3 好 多 ， 大 概 只 有 1 秒 。 


处 理 稍 徽 有 点 复杂 ， 不 过 这 样 的 优化 插 有 意思 。 


AN 
SS” 即便 只 是 加 上 “ 景 低位 上 不 能 出 现 偶数 ”这 个 条 件 , 也 能 进一步 缩小 
二 到 
1 范围 哦 。 
CoA @ 


| 第 3 章 中 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


ET BED 
小 5 排序 交换 次 数 的 最 少 化 


pppIIIIIIIIIIII III II II I II I I I II I I II I II II I II I II II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


排序 可 以 说 是 算法 的 基础 ， 其 实现 方法 有 很 多 。 这 里 我 们 先 不 关注 
人 处理 速度 ,来 思考 一 下 交换 次 数 最 少 的 排序 方法 。 

举 个 例子 ,假设 要 通过 反复 交换 1、2、3 这 3 个 数字 中 的 2 个 数 
字 ， 来 得 到 升序 有 序数 列 。 那 么 初始 数列 不 同 ， 排 序 时 需要 的 最 少 交换 
次 数 也 不 同 。 


例 ) 1, 2, 3 一 不 用 交换 
1, 3,2 一 (2 和 3 交换 ) 一 1, 2, 3 (1 次 ) 
2, 1,3 一 (1 和 2 交换 ) 一 1,2,3 (1 次 ) 
2, 3, 1 一 (1 和 2 交换 ) 一 1,3,2 一 (2 和 3 交换 ) 一 1,2,3 (2 次 ) 
3, 1,2 一 (1 和 3 交换 ) 一 1,3,2 一 (2 和 3 交换 ) 一 1,2,3 (2 次 ) 
3,2, 1 一 (1 和 3 交换 ) 一 1,2,3 (1 次 ) 


也 就 是 说 ， 如 果 是 1、2、3 这 3 个 数字 ， 那么 最 少 交换 次 数 之 和 
为 7。 


求 对 于 由 1~7 了 组 成 的 所 有 数列 , 执行 以 最 少 交 换 次 数 求 得 升序 有 
序数 列 的 处 理 时 ， 少 交 换 次 数 之 和 。 


实际 上 ， 反 复 交 损 并 排序 这 种 方法 也 是 行 得 通 曲 吧 ? 


可 以 是 可 以 ， 但 太 花 时 间 。 我 们 还 
里 下 手 ， 优 化 一 下 吧 。 


是 从 排序 前 后 数字 的 位 置 变化 这 


后 位 置 不 变 的 值 不 需要 交换 。 


的 确 ， 排 序 
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如 果 使 用 实际 排序 的 方法 ， 即 便 只 是 求 最 少 次 数 也 很 麻烦 。 因 此 ， 
可 以 采用 从 排序 完毕 的 数列 倒 推 的 方法 获取 交换 次 数 。 这 里 使 用 广度 优 
先 搜 索 ， 用 Ruby 实现 ， 代 码 如 代码 清单 45.01 所 示 。 


代码 清单 45.01 (q45_01.rb ) 


N=7 

checked = {(1..N) .to a => 0} # 已 检查 的 数组 

check = [(1..N).to al] # 检查 目标 

depth = 0 # 交换 次 数 

while check.size > 0 do # 如 果 存 在 检查 目标 ， 则 循环 


next check = [] 
(0..(N-1)) .to a.combination(2){|i，j| # 选择 两 个 数字 并 交换 
check.each{ |c| 
d= Nelone 
cao = aula 
if lchecked.has key?\(d) then 
emneerealeln optne yd 
xchecle ed 
end 
} 
} 


eneecke nextaeneele 
depth += 1 
end 


puts checked.values.inject (:+) 


如 果 倒 推 成 功 ， 则 可 以 求 出 得 到 目 村 数列 拘 交 换 况 数 。 


这 样 倒是 可 以 求 得 最 少 交 损 次 数 ， 但 检查 对 鼻 是 所 有 的 数列 ， 处 理 


很 花 时 间 呢 。 


那 就 根据 题 意 用 更 简单 网 方法 实现 一 下 吧 。 
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初始 状态 下 和 排序 后 位 置 一 致 的 数字 不 需要 再 参与 交换 ， 所 以 只 需 
要 找 出 和 初始 状态 下 的 位 置 不 同 的 数字 进行 交换 就 可 以 了 (代码 清单 
45.02 )。 


代码 清单 45.02 (q45_02.rb ) 


count Y= 
(1..7) .to a.permutation.each{|ary| 
ary.size.times{ |i| 
Jy nden (i 
if i != j then 
Ey le yl ee 
Count = 
eng 
} 
} 


puts count 


这 里 是 用 数列 表示 所 有 情况 ， 仅 仅 交 损 位 置 发 生变 化 的 数字 吧 ? 语 
起 来 很 清晰 呢 。 


这 次 则 数字 是 1~7, 基本 上 此 间 就 能 得 出 答案 。 如 果 数 字 增 大 , 处 理 
时 间 也 会 现 升 。 仅 是 增 大 到 10， 处 理 起 来 就 很 慢 了 。 


这 种 时 候 ， 可 以 从 数学 掏 遇 度 来 思考 哦 。 


用 数学 上 的 对 称 群 概念 来 看 ， 答 案 可 以 通过 巡回 置换 的 乘积 来 求 
出 ， 所 以 可 以 用 下 面 的 递 推 关系 式 来 表示 。 
如 果 用 qn 表示 1~n 的 最 少 交 换 次 数 之 和 ， 则 可 表示 为 下 面 这 样 。 


a1=0 
(a 


接 下 来 实现 这 个 逻辑 ， 代 码 如 代码 清单 45.03 所 示 。 
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代码 清单 45.03 (q45_03.rb ) 


def count_swap (n) 


Feurn OLE nS 
(= ED eee 2) a oa sveatn = 
ene 


puts count swap(7) 


原 代 码 好 短 ! 这 次 inject 的 用 法 就 是 按 顺 序 对 初始 值 1 执 行 乘 
法 吧 。 


如 果 用 这 个 方法 ， 即 使 足 1~100， 也 可 以 瞬间 求 出 答 宗 。 


看 来 数学 由 识 也 很 重要 呢 。 


22212 次 


© Column 让 
有 助 于 解决 数学 问题 的 群 论 
本 题 的 解答 提 到 了 “对 称 群 "“ 巡 回 置换 ”等 概念 ， 它们 都 是 数学 
“ 群 论 " 分 支 下 的 。“ 鬼 脚 图 ”“15 拼图 "等 很 多 问题 都 可 以 用 群 论 的 知 
识 轻 松 理解 。 
“ 群 论 ” 这 个 词 看 起 来 很 难 ,不 过 很 多 书 都 讲解 了 群 论 的 入 门 知 识 ， 
请 一 定 读 一 读 ( 虽然 是 入 门 书 , 但 还 需要 一 定 的 数学 功底 才能 读 懂 。 最 
好 把 高 中 学 习 过 的 数学 知识 再 复习 一 遍 )。 
参考 :《 群 论 入 门 : 描绘 对 称 性 的 数学 泣 , 芳 泽 光 雄 著 , 讲 谈 社 (BlueBacks 书 系 ) 


@ 原 书 名 为 [ 群 论 入 门 对 称 性 去 直人 办 刀 数 学 |， 尚 无 中 文 版 。 一 一 编者 注 
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: I HE 
46 唯一 的 Ox 序列 


pIIIIIIIIIIIII III II II I IIII I II I I III I IIII I I III II IIIIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


在 n 行 n 列 的 矩阵 中 排列 O 和 x ， 并 统计 各 行 各 列 的 〇 的 个 数 。 举 
个 例子 ， 当 = 3 时 ,我 们 可 以 像 国 四 中 的 这 样 统计 个 数 。 


中 @ 

OO X 日 < 2 xX-O .Qe 2 
x OO 2 日 XX © 2 
Ox x = 1 Ox x1 
}+1+ 个 个 个 

全 2 2 中, 愉 


统计 O 〇 的 个 数 并 重新 排列 的 示例 1 


然后 ， 反 过 来 根据 中 的 计数 结果 重新 排列 每 行 每 列 的 DO 和 x 。 这 
样 ， 我 们 就 可 以 得 到 像 国 加 中 的 人 这 样 的 结果 ， 即 〇 的 个 数 和 GD 相同 。 
但 位 置 排列 不 同 。 

不 过 ， 如 果 是 像 国 国 中 的 @) 的 情形 ， 即 便 根 据 统 计 结 果 反 过 来 重新 
排列 ， 也 只 能 排列 在 与 原来 一 模 一 样 的 位 置 上 ( [ 国 罗 中 的 从 )。 


® @ 

XxX Xx Xx = 0 x x x0 
x Ox 1 xXOXx 刀 1 
x Ox =—1 x Ox 
下 二 让 

0 2 0 0 2 0 


统计 〇 的 个 数 并 重新 排列 的 示例 2 


当 n = 4 时 ， 像 上 述 例子 一 样 ， 根 据 统 计 结果 重新 排列 O 和 x 的 位 置 ， 那 
只 有 1 种 排列 方式 的 O 和 x 的 排列 一 共有 多 少 呢 ? 


二 
请 先 轩 考 一 下 ， 什 么 样 曲 〇 和 x 的 排列 可 以 使 得 重新 排列 时 得 到 多 


种 排列 方式 呢 ? 


个 
四 
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比较 简单 的 思路 是 先 求 出 DO 和 x 的 所 有 排列 方式 ， 然 后 找 出 重 排 
前 和 重 排 后 O 的 统计 结果 相同 的 排列 方式 。 以 比特 位 表示 各 行 ，1 表示 
O, 0 表示 x ， 则 国 四 中 的 排列 可 以 表示 如 下 。 


OxO 一 101 
xOO 一 011 
Oxx 一 100 


如 果 把 上 述 比特 位 看 作 二 进 制 数 ， 则 用 Ruby 实现 时 ， 代 码 如 代码 
清单 46.01 所 示 。 把 行 和 列 的 统计 结果 作为 键 ， 把 〇 的 排列 个 数 作为 值 ， 
保存 到 哈 希 表 中 ， 最 后 输出 排列 个 数 相同 的 组 合 。 


代码 清单 46.01 (q46_01.rb ) 


N= 4 
@count = Hash.new(0) 


gereseareb( 
# 把 各 行 设置 为 数值 
(0.. (2**N-1)) .to a.repeated permutation (N) .each{ |rows | 
# 计算 各 列 o 的 个 数 
col count = Array.new(N, 0) 
N.times{|c| 
rows.each{ |r| 
oonneounte le = (0 


} 
} 
# 计算 各 行 0 的 个 数 


ROWwRcoUunte rowsRmapdle | on (2 ovum 
# 用 哈 希 表 记 录 行 和 列 里 的 o 的 出 现 次 数 
@count [row count + Col count] += 1 

} 


end 


search () 
# 输出 o 的 排列 相同 的 组 合 


puts @count.select{|k, v| v == 1}.count 
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用 二 进 币 数 来 表示 我 异 ， 可 是 寓 11 行 不 太 懂 。 


变量 是 Column， 也 就 是 “ 囊 ”;r 且 row， 也 就 是 “ 行 "。 也 就 
得 出 哪 一 列 是 〇 , 则 要 杷 1 左 移 , 并 和 该 行 作 AND 运算 ,从 


各 行 曲 〇 曲 个 数 就 是 二 进 制 数 1 的 个 数 ， 所 以 很 简单 呢 。 


当 n = 4 时 ， 这 个 方法 只 要 几 秒 就 能 得 出 答案 。 不 过 ， 如 果 n 增 
大 ， 处 理 时 间 会 迅速 增加 ( 当 n = 5 时 就 要 10 分 钟 以 上 了 )。 


接 下 来 ,我 们 再 简化 一 下 思路 。 根 据 统计 的 个 数 反 过 来 能 还 原 出 多 
种 排列 方式 的 情形 就 是 ， 对 任意 长 方形 而 言 ， 其 4 个 角 如 轿 阳 所 示 。 


能 还 原 出 多 种 排列 方式 的 情形 
因此 ， 这 里 需要 把 国 E 回 的 情形 排除 在 搜索 对 象 之 外 。 此 时 ， 第 1 
行 和 第 2 行 需要 满足 轿 有 加 的 情形 。 用 位 运算 对 这 两 行 执行 以 下 处 理 ， 
如 果 两 者 都 非 替 ， 那 么 就 属于 搜索 范围 。 
“第 1 行 ” 和 “第 2 行 的 按 位 取 反 ” 作 AND 运算 
“第 1 行 的 按 位 取 反 ”和 “第 2 行 ” 作 AND 运算 
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人 


像 上 面 这 样 检查 各 行 并 实现 ， 可 得 到 代码 清单 46.02 这 样 的 程序 。 


代码 清单 46 .02 ( aq46_02.rb ) 


def search (rows) 


end 


puts search([]) 


= 4 


return 1 if rows.size == # 搜索 完 所 有 行 后 终止 搜索 
count = 0 
(2**N) .times{ |row| 
# 4 个 角 里 的 o 和 x 是 否 交 错 出 现 
cross = rows.select{|r| (row & ~r) > 0 && (~row & r) > 0} 
Sount t= Searceh(rows rT [irowl TE erossv eount ==0 
| 


count 


这 样 一 来 ， 当 nn = 4 时 瞬间 就 可 以 求 得 结果 ， 即 使 x = 5 也 只 需要 


几 秒 ， 而 = 6 时 则 只 需要 几 分 钟 。 


这 是 按 位 取 反 的 运算 符 ， 可 以 翅 所 有 位 上 的 0 和 1 互 损 。 
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. ET 
Q 47 格雷 码 循环 


ppIIIIIIIIIIIII III IIII II I I I II I I II I II II I II I I I I IIIIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


“格雷 码 ”® 是 一 种 数字 编码 方式 ， 其 特征 是 任意 相 邻 的 代码 只 有 1 

个 位 元 2 不 同 。 举 个 例子 ， 一 般 的 2 进 制 数 表 示 的 1 要 变 为 2 时 ， 是 由 

001 变 为 010， 需 要 改变 2 位 ; 3 要 变 为 4 时 ， 则 是 由 011 变 为 100， 需 
要 改变 3 位。 而 用 格雷 码 。 慎 划 格雷 码 示例 

时 ， 这 两 种 情况 都 只 需要 

改变 1 位 (上 EE )。 0 

下 面 我 们 试 试 “ 把 n 进 |1 

制 数 转换 成 格雷 码 ， 把 得 到 ”|2 

的 编码 结果 看 作 n 进 制 数 ， |3 

再 一 次 转换 成 格雷 码 ”， 并 14 

5 

6 

7 


一 直 重 复 这 个 过 程 ， 直 到 转 
换 为 与 初始 值 相同 的 值 。 

举 个 例子 ， 当 nn = 2， 
初始 值 为 100 时， 是 “100 一 110 一 101 一 111 一 100” 这 样 一 个 循环 ， 
重复 转换 4 次 后 得 到 初始 值 。 同 样 地 ， 当 mn = 3， 初始 值 为 100 时 ， 转 
换 过 程 则 是 “100 一 120 一 111 一 100”， 重 复 3 次 后 得 到 初始 值 。 


求 当 n = 16 时 ， 从 808080 开始 转换 ， 最 后 得 到 808080 所 需 的 转换 次 数 ， 
以 及 从 abcdef 开始 转换 ， 最 后 得 到 abcdef 所 需 的 转换 次 数 。 


如 何 求 n 进 制 数 曲 格雷 码 呢 ? 


前 面 我 们 通过 异 或 运算 改变 了 位 元 ， 对 吧 。 处 理 ] 进 制 数 也 可 以 考 
虑 有 系 用 异 或 运算 。 


语 是 Gray Code， 又 叫 循 环 二 进 制 单位 距离 码 ( reflected binary code )。 


译 者 注 


位 元 : 就 是 bit， 一 个 二 进 制 位 。 译 者 注 
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重复 转换 直到 变 为 初始 值 这 个 处 理 不 难 ， 关 键 在 于 “如 何 转换 成 格 
雷 码 ”。 把 2 进 制 数 转换 成 格雷 码 比较 常见 ， 网 上 也 有 不 少 中 文 资料 ， 
但 进 制 数 这 方面 的 资料 就 寥寥 无 几 了 。 

这 里 先 从 2 进 制 数 的 格雷 码 转换 开始 总 结 基本 的 转换 模式 。 维 基 百 
科 ( https://zh.wikipedia.org/wiki/ 格雷 码 ) 上 的 资料 显示 ， 用 “要 转 
换 的 2 进 制 数 ” 和 “把 该 2 进 制 数 右 移 1 位 并 在 最 高 位 前 补 0 后 得 到 的 
值 ” 作 蜡 或 运算 ， 得 到 的 结果 就 是 该 2 进 制 数 的 格雷 码 。 

两 个 数 的 异 或 运算 在 其 他 问题 中 出 现 过 ， 其 过 程 如 EE 所 示 。x 和 2 
的 异 或 运算 相当 于 a 和 5 的 差 除 以 2 得 到 的 余数 。3 进 制 数 也 一 样 ，a 和 
b 的 异 或 运算 相当 于 求 (a - b) mod 3 (a 和 4 的 差 除 以 3 得 到 的 余数 ) 
( )。 


上 ERE3 异 或 运算 国 品 两 个 数 的 异 或 运算 ( 3 进 制 数 ) 
0 0 1 0 0 2 
1 0 1 1 0 1 
和 2 0 


16 进 制 数 的 民 或 运算 相当 于 求 (a-b mod 16(a 和 ob 的 差 除 以 16 
得 到 的 余数 )。 那 1 位 丰 移 又 该 如 何 实现 呢 ? 


下 面 对 “ 用 16 进 制 数 表示 的 10 进 制 数 ”和 “把 16 进 制 数 右 移 1 
位 并 在 最 高 位 前 补 0 得 到 的 值 "执行 异 或 运算 。 如 果 10 进 制 数 是 1234， 
则 对 应 的 16 进 制 数 是 4D2， 因 此 右 移 1 位 后 得 到 04D， 执行 异 或 运算 
后 得 到 49B。 


代码 清单 47.01 中 的 Ruby 代码 可 以 对 每 一 个 数位 执行 上 述 处 理 。 


16 进 制 数 在 Ruby 语言 里 以 “0x” 开 头 ， 所 以 这 段 代码 以 0x808080 和 
0xabcdef 为 输入 值 。 
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代码 清单 47.01 (q47_01.rb ) 


和 
def graycode (value) 
# 分 解 N 进 制 数 的 各 个 数位 ， 存 到 数组 中 
digites = 
while value > 0 
digits << Value %$ N 
value /= N 
end 


# 将 各 个 数位 转换 成 格雷 码 
(digits.size - 1).times{|i| 
eiees ltl = Moepbas ls Ss olepneee ss I 


} 

# 数组 转换 为 数值 

digits.each with index.map{|d, i| d * (N**i)}.inject(:+) 
end 


# 一 直 转 换 ， 直 到 变 为 初始 值 
def search(value) 
check = graycode (value) 
cnt = 1 
while check l= value do 
check = graycode (check) 
cnt += 1 
end 
Sri 
end 


puts search (0x808080) 
puts search (0xabcdef) 


如 果 用 Ruby， 直接 用 to_s(16) 各 就 可 以 得 到 16 进 制 字符 串 了 ,为 
什么 不 用 这 种 方法 呢 ? 


RN 

ee 的 确 可 以 用 字符 来 表示 各 个 数位 ， 但 相 比 之 下 用 整数 更 贴 全 编码 处 
< 人 理 的 需求 ， 并 且 也 重 快 。 

a 


区 初始 值 为 808080 时 需要 8 
初始 值 为 abcdef 时 需要 64 次 
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目前 ,日 文 的 n 进 制 数 转换 成 格雷 码 的 资料 很 少 ， 不 过 英文 版 的 
维基 百科 ( https://en.wikipedia.org/wiki/Gray_code) 上 其 至 连 相 关 的 代 
码 都 找 得 到 。 或 许 常 常 参阅 英文 网 页 的 人 并 不 多 ,但 代码 是 世界 通用 
的 ， 所 以 有 时 候 用 英文 搜索 一 下 也 许 就 能 解决 难题 了 。 

日 本 计算 机 行业 的 大 部 分 产品 都 来 自 海外 , 使 用 手册 也 大 多 是 从 英 
文 翻译 过 来 的 。 当 然 ， 论 开发 人 员 的 人 数 ， 日 本 远 不 及 海外 ， 所 以 日 
文 的 信息 量 也 与 英文 的 有 很 大 差距 。 虽 然 日 本 也 有 新 技术 诞生 ， 很 多 
开发 人 员 也 在 发 布 着 各 种 新 信息 ， 但 与 英文 相 比 ， 差 距 只 会 不 断 增 大 。 

同 是 英文 ， 读 小 说 和 读 技术 文章 需要 的 词汇 量 有 很 大 的 差异 。 我 
读 过 《 哈 利 波 特 》 的 英文 原著 ， 因 为 有 很 多 不 懂 的 词汇 ， 读 得 很 艰难 。 
小 说 里 有 不 少 省 略 和 特殊 用 荐 等 ， 单 任 中 学 和 大 学 里 学 到 的 语法 并 不 
能 完全 理解 。 而 英文 的 技术 文章 里 很 多 专业 术语 都 有 对 应 地 音译 为 片 
假名 的 日 文 词汇 ， 语 法 也 相对 简单 。 

我 们 可 以 从 身边 的 产品 使 用 手册 开始 读 起 。 比 如 可 以 试 着 读 
Windows、Mircrosoft O 伍 ce、Mac OS 或 者 浏览 器 等 的 使 用 手册 。 因 为 
是 平时 常用 的 软件 ， 所 以 它们 的 使 用 手册 读 起 来 会 顺畅 一 些 。 

在 编程 相关 的 网 页 里 ，Stack Overflow ( http://stackoverflow.com/ ) 
是 有 名 的 技术 问答 站 点 。 虽 然 这 个 站 点 也 有 日 文 版 ， 但 其 内 容量 远 远 
不 及 英文 版 。 请 不 要 再 “因为 打开 的 网 页 是 英文 的 ， 所 以 把 它 关 掉 ”， 
尝试 读 一 下 英文 网 页 吧 。 
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ED EDD 
小 8 翻转 得 到 交错 排列 
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这 里 有 围 成 圆 形 的 2n 张 卡片 。 最 开始 是 张 白色 卡片 入 张 黑色 
卡片 分 别 连续 排列 。 接 下 来 ， 反 转 连续 3 张 卡片 的 颜色 (白色 卡片 反 转 
成 黑色 ,黑色 卡片 反 转 成 白色 )， 并 重复 这 样 的 操作 ， 直 到 黑色 卡片 和 
白色 卡片 交错 排列 〈 反 转 颜 色 的 卡片 张 数 固定 为 3 )。 

举 个 例子 ， 当 nn = 3 时 ， 如 国 国 所 示 , 通过 两 次 反 转 颜色 操作 就 能 
达到 目标 。 


BE x = 3 时 


求 当 n = 8 时 ， 使 黑色 卡片 和 白色 卡片 交错 排列 所 需 的 最 少 反 转 次 数 。 


同一 位 置 的 卡片 反 转 两 况 就 会 恢复 原来 的 颜色 吧 。 


关键 是 反 转 操作 和 顺序 无 关 〈 按 照 1、2、3 一 2、3、4 这 
行 反 转 与 按照 2、3、4 一 1、2、3 这 个 顺序 反 转 一 样 )。 


个 顺序 进 
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如 提示 所 言 ,“ 同 一 位 置 的 卡片 反 转 两 次 就 会 恢复 原来 的 颜色 ”“ 反 
转 操 作 和 顺序 无 关 ”， 因 此 问题 在 于 “选择 哪里 作为 反 转 位 置 ”。 

因为 选择 反 转 位 置 时 要 考虑 如 何以 最 少 反 转 次 数 使 黑色 卡片 和 白色 
卡片 交错 排列 ， 所 以 如 何 表示 圆 形 是 一 个 关键 点 。 用 数组 可 以 表示 各 个 
卡片 ， 但 是 必要 的 信息 只 是 卡片 颜色 ， 所 以 这 里 用 二 进 制 数 表示 就 很 简单 。 


如 果 用 二 进 制 数 表 示 ， 就 可 以 用 异 或 运算 来 表示 反 转 控 作 吧 。 不 过 ， 
怎么 表示 图 形 呢 ? 


因为 只 需要 确定 反 转 位 置 即 可 ， 所 以 是 不 是 设置 连续 的 3 位 “1” 就 
可 以 3oE? 


没 错 。 确 定 起 始 位 置 ， 然 后 设置 连续 曲 3 位 “1”， 并 整体 逐一 左 移 
表示 反 转 位 置 。 如 果 左 移 后 超出 了 卡片 张 数 , 那么 杷 在 边 的 位 补充 到 
右边 就 可 以 。 


举 个 例子 ， 当 n= 3 时， 所 有 的 反 转 位 置 可 以 表示 如 下 。 
000111 一 001110 一 011100 一 111000 一 110001 一 100011 


对 于 超出 位 数 的 部 分 ,只 需要 和 右 移 2n 位 的 结果 作 OR 运算 即 可 。 
“111000 一 110001” 部 分 的 处 理 如 国 加 所 示 。 


当 n = 3 时 

111000 
左 移 1 位 1110000 
右 移 6 位 1 
对 上 述 两 个 数字 执行 OR 运 算 | 1110001 
取 右 边 6 位 110001 
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这 里 ， 我 们 遵照 上 述 思 路 ， 用 Ruby 实现 广度 优先 搜索 ， 代 码 如 代 
码 清 单 48.01 所 示 。 


代码 清单 48 .01 (gq48_01.rb ) 


N= # 各 色 卡 片 张 数 
start = (1 << N) - 1 HA (oR) 
mask = (1 << N* 2) - 1  # 位 掩 码 


# 目标 状态 (0 和 1 交错 排列 ) 

coal = 

NotEimesll laoan (oan < 2 7 
goal2 = mask - goall 


# 反 转 次 数 

count = N*2 

(1 << N*2) .times{|i # 表示 反 转 起 始 位 置 的 比特 列 
turn 人 
turn 人 


# 到 达 目 标 状态 后 找 出 反 转 位 置 上 的 数字 的 最 小 值 
(rt un am lt 
counte = leount toRs (2 coune ee Bl mn 
end 
} 


puts count 


入 


ET 三 三 二 os)RREET 


同时 使 用 goal1 和 goal2 这 一 点 很 有 意思 。 是 因为 交错 排列 的 结果 
也 会 因为 黑色 卡片 和 白色 卡片 位 置 的 不 同 而 不 同 吧 ? 


得 站 热 练 ， 好 酪 ! 


位 掩 码 曲 使 用 方法 在 Q38 里 介绍 过 ， 可 以 用 在 IP 地址 等 很 多 地 方 ， 
记 住 这 个 方法 可 以 高 化 很 多 处 理 哦 。 


位 运算 在 其 他 语言 里 也 可 以 同样 实现 。 例 如 ， 我们 这 里 再 来 试 试用 
JavaScript 实现 同样 的 处 理 。 不 过 要 注意 ， 它 和 Ruby 对 运算 符 的 优先 级 
处 理 不 同 (“^” 和 “==” 等 )。 
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代码 清单 48.02 (gq48 02.js ) 


const N = 8; /* 各 色 卡 片 张 数 */ 
a /A(T OR N 
区 


/* 目标 状态 ( 0 和 1 交错 排列 ) */ 

Was 本 本 0 

EGG 人 
Var doaloe = maske ooal 


/* 对 值 为 1 的 数位 进行 计数 */ 


Funotionnpitoount le 


= OXSSSSSSSS 0 
Es (XE OX33333333) + (XX > 2° 8 0X33333333)> 
X= (Xx & OXO0FOFOFOF) + (Xx >> 4 & OXx0FOFOFOF); 
区 = (XX & OXOO0FFOOFE) + (Xx >> 8 & Ox00FFOOFF); 
X= (xX & OxOO0O00FFFF) + (xX >> 16 & Ox0000FFFF); 
return x; 

} 

/* 反 转 次 数 */ 

Wr Out = NF 2 

Fol( a 0 
二 让 
ET 


/* 到 达 目 标 状态 后 找 出 反 转 位 置 上 的 数字 的 最 小 值 */ 
(Ea Cun ay (car vu ga Dl 
neoune Biteoune yl 
eounte DieoUne (an 
) 
} 


} 


sonsolenlea( eoune). 


在 C 语 言 和 JavaScript 竺 语言 中 ,，“ 对 值 为 1 的 数位 进行 计数 ” 拘 


方法 非常 有 名 ， 请 一 证 要 记 住 这 个 方法 。 
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110 
Q 小 9 和 欲 速 则 不 达 
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假设 存在 如 图 到 所 示 的 长 方形 ， 该 长 方形 被 划分 为 了 边 长 为 1 厘米 的 
正方 形 方 格 。 假 设 从 A 移动 到 B 时 ， 只 能 在 同一 条 直线 上 移动 2 次 (可 以 在 
同一 条 路 径 上 往返 ， 但 这 种 情况 也 算 作 2 次) 另外 ， 这 里 规定 要 沿 着 方 格 的 
边 移 动 ， 且 人 允许 交叉 通过 同一 个 点 。 求 这 种 条 件 下 从 A 到 B 的 最 长 路 径 。 

当 长 方形 宽 3 厘米 ,长 4 厘米 时 ,“OK 示例 1” 的 移动 距离 为 7 厘 
米 ,“OK 示例 2” 的 移动 距离 为 13 厘米 。 而 像 “NG 示例 ”这 样 ， 经 过 
同一 条 直线 3 次 以 上 是 不 允许 的 。 


A OK 示例 1 A OK 示例 2 


经 过 同一 条 直 
线 3 次 


移动 路 径 示例 


求 当 长 方形 宽 5 厘米 ， 长 6 厘米 时 的 最 长 移动 距离 。 


怎样 判断 在 同一 条 直线 上 的 移动 况 数 是 一 个 难点 吧 。 


只 需要 怒 水 平方 向 和 重 直 方向 上 的 直线 使 用 次 数 保存 在 数组 里 就 可 
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因为 有 “只 能 在 同一 条 直线 上 移动 2 次 ”这 个 条 件 ， 所 以 关键 点 就 
在 于 如 何 判 断 是 否 符合 这 个 条 件 。 可 以 准备 一 个 数组 ， 保 存 水 平方 向 和 
垂直 方向 上 的 直线 使 用 次 数 ， 每 移动 1 次 ， 为 对 应 元 素 加 1， 如 果 某 个 
元 素 超过 2， 则 终止 搜索 。 


方 属 的 边 长 是 1 厘米 , 所 以 可 以 根据 方 赂 个 数 求 直 线条 数 。 剩 下 的 就 
是 处 理 上 下 左右 的 移动 …… 


如 果 可 以 继续 前 进 就 尽量 继续 前 进 ， 所 以 我 觉 4 
优先 搜索 。 


时 这 里 很 适合 用 ;深度 


是 的 。 如 果 从 左上 前 开 始 按 顺 序 移动 ， 杷 是 否 到 达 右 下 饼 作 为 终止 条 


件 ， 风 可 以 很 简洁 地 用 雍 归 实现 。 


用 Ruby 实现 时 ， 代 码 如 代码 清单 49.01 所 示 。 


代码 清单 49.01 (q49_01.rb ) 


W, H=6,5 # 横向 和 纵向 方 格 个 数 
USABLE = 2 # 同一 条 直线 的 可 使 用 次 数 
@max = 0 # 加 

@h = Array.new(H + 1, 0) # 保存 水 平方 向 的 直线 使 用 次 数 
@v = Array.new(W + 1, 0) # 保 丰 有 方向 的 直线 使 用 次 数 


def search (x, y) 
if (x == W) && (y == H) then # 如 果 到 达 了 B, 则 确认 最 大 值 并 终止 搜索 
@max = [@h.inject(:+) + @v.inject (:+) ，@maXxX] .max 
EVE 
end 
if @h[ly] < USABLE then # 可 以 水 平方 向 移动 的 时 候 
En # 向 左 移动 
@hly) += 1 
searcme 


if x < W then # 向 右 移动 
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end 
if @v[x]l < USABLE then # 
a hen # 
rele ee 
search(x, y - 1) 
gj 户 可 司 二 一 有 1 
end 
if y < H then # 向 下 移动 


@v [x] += 


以 垂直 方向 移动 的 时 候 
上 移动 


本 上 


search(x, y + 1) 
@v [Xx] == 1 
end 
end 
end 


seareml(on) # 从 位 置 和 A 开始 
puts @max 


JavaScript 可 以 用 几乎 相同 的 代码 实现 上 面 的 逻辑 (代码 清单 
49.02 )。 


代码 清单 49.02 (gq49 02.js ) 


const W = 6; /* 横向 方 格 个 数 */ 
const H = 5; /* 纵向 方 格 个 数 */ 
const USABLE = 2; /* 同一 条 直线 的 可 使 用 次 数 */ 
var max = 0; /* 最 长 距离 */ 
Var h = new Array(H + 1); /* 保存 水 平方 向 的 直线 使 用 次 数 */ 
var ve nneray 方向 的 直线 使 用 次 数 */ 


forY (var 0 0 0 
for (ar 0 0 


function sum(a) { 
return a.reduce (function(x, y) { return x + y; }); 


} 


function search(x, y){ 
if ((x == W) && (y == H)){ 
/* 如 果 到 达 了 B， 则 确认 最 大 值 并 终止 搜索 */ 
max = Math.max(sum(h) + sum(v), max); 
TetEUEn 
} 
if (hly] < USABLE){ /* 可 以 水 平方 向 移动 的 时 候 */ 
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if (x > 0) { /* 向 左 移动 */ 


nly] += 1; 
Searcem( 性 汪 六 ) 瑟 
JE 

} 

if (x < W) { /* 向 右 移动 */ 
nal = 
Search(x + 1, Y) 
my = 

} 


if (v[x] < USABLE){ /* 可 以 垂直 方向 移动 的 时 候 */ 
if (y > 0){ /* 向 上 移动 */ 
wx = 1 
search(x, y - 1);，; 
ll = 


if (y < H){ /* 向 下 移动 */ 
vl FF= Ls 
Search(xr yy + 1); 
mel == 


} 


} 
} 


search(0，0); /* 从 位 置 A 开 始 */ 
console.log (max); 


我 以 为 JavaScript 求 数组 的 和 值 时 只 能 通过 循环 实现 呢 ， 原 来 还 
有 这 种 写法 吧 。 


25 厘米 
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Qs 完美 洗 牌 
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假设 有 2n 张 牌 ， 牌 上 写 有 用 来 区 分 每 张 牌 的 文字 。 把 牌 琶 起 来 ， 
从 正中 间 把 牌 分 成 两 把 ， 然 后 分 别 从 最 上 面 开始 ， 按 顺序 一 张 张 地 取出 
牌 并 堆肥 起 来 ， 我 们 称 这 种 操作 为 “ 洗 牌 ”。 

洗 儿 次 后 ， 牌 会 变 成 最 初 的 顺序 。 壁 如 当 n = 3 时 ， 假 设 6 张 牌 上 分 
别 写 了 1~6 的 数字 ， 那 么 通过 以 下 顺序 洗 牌 可 以 使 牧 变 成 最 初 的 顺序 。 


1121sl4lsle 
ee 分 成 123 和 456 这 两 把 ， 并 按 顺 序 取 牌 


114|2ls|sle 


ee 分 成 142 和 536 这 两 把 ， 并 按 顺 序 取 牌 


11514l3l2|e 


ee 分 成 154 和 326 这 两 把 ， 并 按 顺 序 取 牌 


11315l21416 


上 分 成 135 和 246 这 两 把 ， 并 按 顺 序 取 牌 
213l415|6 
如 上 ， 经 过 4 次 洗 牌 ，6 张 牌 恢 复 了 最 初 的 顺序 。 


对 2n 张 牌 洗 牌 ， 并 求 出 当 1 三 < 100 时 ,一 共有 多 少 个 n 可 以 使 得 经 过 
2(n - 1) 次 洗 牌 后 ， 牌 恢复 最 初 顺 序 ? 


in 饶 
i A 
Qt 


请 分 两 种 情况 来 考虑 : 2(n - 1) 况 洗 牌 后 “ 需 一 况 ” 惊 复 顺 序 ; 
回 会 多 况 恢复 顺序 ， 在 需 2(mn - 1) 况 也 恢复 顺序 。 


Q50 ”完美 洗 牌 | 197 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


本 题 的 洗 牌 方法 被 称 为 “完美 洗 牌 " ( perfect shuffle )。 首 先 用 数 
组 表示 牌 ,然后 根据 题 意 求 经 过 2(n - 1) 次 洗 牌 后 ， 牌 恢复 最 初 顺序 的 
n 值 。 
下 面 我 们 统计 符合 1 三 n < 100， 且 经 过 2(n - 1) 次 洗 牌 后 能 恢复 
最 初 顺序 的 n( 代码 清单 50.01 )。 


} 


代码 清单 50 .01 (q50_01.rb ) 


def shuffle (card) 

left = card.take(card.s8ize / 2) 
mene eardanropl(oarads se 
esuUni = 

left.size.times{|i| 


} 


result 
end 


count = 0 


(eno ear 

amtie SE (owl2 % mY ) ol el 

ecard = nuelone 

(人 
oarmge = she Ele (leardy 


} 


eouneE re = teangd ELE 


puts count 


result us aesely 
result .push (right [i]) 


执行 程序 后 可 得 到 结果 “46”。 


这 种 方法 很 好 理解 呢 。 洗 上 牌 处 理 使 用 曲 take 和 drop 还 真是 Ruby 


的 风 略 吧 。 


中 也 可 称 为 “全 混 洗 ”。 一 一 编者 注 
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求解 的 方法 还 有 一 种 。 那 就 是 重复 执行 洗 牌 操作 ， 当 恢复 最 初 的 顺 
序 时 ,统计 此 时 洗 牌 次 数 为 2(n - 1) 的 n 值 (代码 清单 50.02 )。 


代码 清单 50 .02 (q50 02.rb ) 


def shuffle(card) 
left = card.take (card.size / 2) 
iante Saardudropl(eargdssnen/ 2 
ese 加 
left.size.times{|i| 
result .push (left [i]) 
result.push(right II 
} 
result 
end 


count = 0 


(T0000 ean 


mt toa 
aaron = nme lone 
下 二 外 


while true do 
eard = Shnusfleleaara) 


i 
brea rE aanad = na 
end 
Seoumee r= = = 


} 


puts count 


执行 程序 后 得 到 的 结果 是 “22”。 


提 后 “ 寓 一 况 ” 恢 复 景 初 顺序 的 情况 嘛 。 
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上 述 两 种 方法 都 没有 问题 ， 但 我 们 还 可 以 从 数学 的 角度 来 解 题 。 
分 析 牌 的 移动 规律 可 以 看 出 ， 假 设 例题 中 “2” 这 张 牌 起 始 位 置 为 0 
(假设 第 1 张 位 置 为 0， 第 2 张 位 置 为 1)， 则 这 张 牌 的 移动 顺序 为 
1 


如 果 从 除法 的 余数 这 个 角度 来 思考 ， 则 是 下 面 这 样 。 


2)imodis = 2 
2x2)mod5=4 
<2oNmods = 
832)imodse = 


nd ee 


可 以 看 到 ,上 一 个 位 置 数 的 2 倍 除 以 (2n 一 1) 后 得 到 的 余数 就 是 下 
一 个 位 置 数 。 也 就 是 说 , 第 i 个 位 置 的 牌 在 洗 牌 后 会 移动 到 第 “ix2 
mod (2n 一 1)” 个 位 置 。 执 行 2(n 一 1) 次 洗 牌 处 理 后 能 恢复 最 初 的 顺序 ， 
也 就 是 说 以 下 等 式 成 立 。 


(ix2)2t mod(2xn=1)=1i 
， 也 就 是 第 2 张 牌 的 情况 如 下 : 
22 mod(2%m = 1) = 
邻 “2xn 一 1” 为 N， 则 如 下 : 
2(N-1)modN=1 


可 以 看 到 ， 它 符合 费 马 小 定理 。 


() 2(n - 1) 次 洗 牌 后 “第 一 次 ”恢复 顺序 时 ， 有 22 个 
i 在 第 2(n - 1) 次 也 恢复 顺序 时 ， 有 


46 个 
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结束 的 沙 


GIIIIIIIIIIIIIIIIIIN) oIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN, 


假设 有 NN 个 沙漏 ， 分 别 能 计时 1~Y 分 钟 。 把 这 些 沙漏 围 成 一 个 圆 ， 
每 隔 1 分钟 倒挂 ( 即 上 下 苏 倒 ) 一 次 。 然 后 ,倒挂 沙漏 时 的 起 始 位 置 会 
“依次 顺 时 针 移 动 "， 并 且 沙 漏 的 倒挂 个 数 会 根据 起 始 位 置 上 的 沙漏 的 计 
时 分 钟 数 不 同 而 不 同 (计时 1 分钟 时 ,倒挂 1 个 沙漏 ; 计时 2 分 钟 时 ， 
倒挂 2 个 沙漏 ; 计时 NN 分钟 时 ,倒挂 入 个 沙漏 )。 

如 果 一 开始 所 有 沙漏 的 上 半 部 分 都 装 有 沙子 ， 那 么 倒挂 时 会 出 现 所 
有 沙漏 的 沙子 同时 向 下 落 的 情况 。 举 个 例子 ， 当 N = 4 时 ,按照 1 分 
钟 、2 分 钟 、3 分 钟 、4 分 钟 的 顺序 排列 沙漏 ， 其 起 始 位 置 为 能 计时 1 分 
钟 沙漏 的 时 候 ， 如 恩 开 所 示 ， 经 过 6 分 钟 后 所 有 沙子 会 同时 向 下 落 
(加 开展 示 了 0~5 分 钟 后 (倒挂 后 ) 沙漏 中 上 半 部 分 的 沙 量 ， 而 蓝 色 部 
分 是 倒挂 着 的 沙漏 。 如 下 加 到 所 示 ，!] 分 钟 后 所 有 沙子 都 会 向 下 落 )。 

但 是 ， 如 果 


， 2 四 
以 2 分 钟 、4 分 © 1 分 钟 © 2 分 钟 @. 


钟 、3 分 钟 、1 
分 钟 的 顺序 排 © @?@ OO» © 
列 ， 当 以 2 分 钟 © ©@ © 


Qs Le 
51 


的 沙漏 为 起 始 位 县 34 旬 
置 时 ， 无 论 经 过 © © © 

多 久 都 不 可 能 出 

现 所 有 沙子 同时 @ @n Once © 
向 下 落 的 情况 。 ©@ 5 分 钟 @ 4 分 钟 '@ 


当 N = 4 时 
求 当 N = 8 时 ， 使 所 有 沙子 同时 向 下 落 的 8 个 沙漏 的 排列 方法 共有 多 少 种 
( 即便 是 同样 的 排列 顺序 ， 只 要 倒挂 沙漏 时 的 起 始 位 置 不 同 ， 就 当 作 不 同 的 情况 计数 ) ? 
※ 下 页 是 补充 内 容 ， 仅 供 参 考 。 
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所 谓 “即便 是 同样 的 排列 顺序 ， 只 要 倒挂 沙漏 时 的 起 始 位 置 不 同 ” 
指 的 是 下 面 这 种 情况 。 

“按照 1 分 钟 、2 分 钟 、3 分 钟 、4 分 钟 的 顺序 排列 ， 从 1 分 钟 的 沙 
漏 开 始 倒挂 ”以 及 “从 2 分 钟 的 沙漏 开始 倒挂 ”这 2 种 情况 要 分 别处 理 
( 计 作 2 种 排列 方法 )。 又 因为 沙漏 要 围 成 一 圈 ， 所 以 “按照 1 分 钟 、2 
分 钟 、3 分 钟 、4 分 钟 的 顺序 排列 ， 从 1 分 钟 的 沙漏 开始 倒挂 ”和 “ 按 
照 4 分钟 、1 分 钟 、 2 分钟 、3 分 钟 的 顺序 排列 ， 从 1 分钟 的 沙漏 开始 倒 
挂 ”这 两 种 情况 可 以 看 作 是 一 种 排列 〈 计 作 1 种 排列 方法 )。 


本 题 的 关键 点 在 于 有 可 能 会 出 现 无 论 如 何 都 不 能 使 所 有 沙子 同时 向 
下 落 的 情况 。 设 置 合适 的 循环 次 数 上 限 是 一 种 方法 ， 不 过 我 们 还 可 以 采 
用 其 他 方法 : 如 果 所 有 沙漏 进入 某 一 个 同样 的 状态 ， 则 判定 进入 了 循环 。 
至 于 判断 所 有 沙子 能 不 能 同时 向 下 落 ， 则 要 看 是 不 是 所 有 沙漏 的 上 半 部 
分 剩余 沙 量 都 是 1 分 钟 的 量 。 

如 果 根 据 题 意 用 Ruby 实现 ， 则 代码 如 代码 清单 51.01 所 示 。 


代码 清单 51.01 (q51_01.rb ) 


N = 8 # 沙漏 数 
GOAL = [1] * N # 如 果 所 有 沙漏 剩余 沙 量 为 1， 则 所 有 沙子 能 同时 向 下 落 


count = 0 
(1..N) .to a.permutation{ |init| # 依次 设置 初始 状态 
meurenass =m 
pos = 0 
lod = {}# 检查 是 否 变 为 同样 状态 的 记录 
while log[hourglass] != pos # 如 果 变 为 同样 状态 ， 则 终止 处 理 
if hourglass == GOAL then # 如 果 变 为 目标 状态 ， 则 终止 处 理 
count += 1 
break 
end 
Toglhourglassll = pos 


# 减少 沙漏 沙 量 ( 如 果 上 半 部 分 沙 量 为 0， 则 保持 为 0 ) 
hourglass = hourglass.map{|h| h >0?n-1: 0} 


init[pos] .times{ |i| # 倒挂 沙漏 
rev = (oa i) %N 
hourglass[rev] = init [zev] - hourglass [rev] 
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} 
pos = (pos + 1) $ 'N # 移动 到 下 一 个 位 置 
end 


} 


puts count 


执行 这 个 程序 后 可 以 得 到 正确 答案 “6055"。 


数组 元 素 的 值 表示 曲 是 各 个 沙 汤 的 剩余 时 间 吧 ? 


是 的 。 这 段 程序 模拟 了 每 经 过 1 分钟 沙 漏 时 间 相 应 减少 的 处 理 。 


通过 松 查 是 否 和 过 去 蘑 个 状态 相同 ,来 防止 无 限 循环 。 


本 题 的 关键 是 ， 要 倒挂 的 沙漏 的 个 数 会 根据 沙漏 的 大 小 而 改变 。 按 
顺序 移动 倒挂 沙漏 时 的 起 始 位置 就 是 为 了 用 除法 的 余数 来 表示 圆 形 。 

余数 不 仅仅 可 以 表示 圆 形 , 还 可 以 应 用 在 “根据 日 历 求 星 期 几 ”“ 上 
下 左右 移动 "等 多 种 场景 里 。 用 余数 可 以 把 一 组 数字 进行 简单 分 类 。 举 
个 例子 ， 通 过 用 整数 除 以 3 并 求 余 数 ， 可 以 把 整数 分 为 0、1、2 这 3 个 
类 别 。 这 是 加 减 乘 除 不 具备 的 特征 。 

即便 是 普通 的 运算 ,， 稍 花心 思 也 可 以 有 很 多 不 同 的 使 用 方法 ,请 多 
J 


6055 种 


Q51 ”同时 结束 的 沙漏 “| 203 


图 灵 社区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


© Column 让 


精通 编程 所 必需 的 目标 


由 于 日 本 文部 科学 省 由 也 在 推进 计算 机 编程 教育 ,所 以 学 习 编程 的 
小 孩子 越 来 越 多 了 。 署 假 的 时 候 ,， 全 国 各 地 都 有 基于 Scratch 等 学 习 环 
境 的 编程 讲座 。 

教育 类 企业 也 不 断 开发 出 面向 儿童 的 编程 教材 ， 简 单 快乐 地 学 习 
编程 的 环境 正在 慢 慢 地 完善 。 这 些 学 习 环 境 利用 的 是 虚拟 角色 等 ， 因 
而 视觉 上 也 让 人 比较 容易 接受 ， 不 过 仍然 存在 一 个 问题 ， 那 就 是 很 难 
下 半天 条 “光一 3” 安 司 6 

也 就 是 说 ，Scratch 等 可 以 让 大 家 觉得 “编程 是 一 件 好 玩 的 事情 ”， 
但 无 法 进一步 学 习 编 程 的 小 孩子 也 不 在 少数 。 很 多 小 孩子 觉得 同样 是 
使 用 电脑 的 话 ， 编 程 肯 定 不 如 游戏 好 玩 。 当 我 问 这 些小 孩子 为 什么 那 
么 觉得 的 时 候 ， 他 们 说 是 “没有 目标 "。 本 身 就 “没有 想 要 解决 的 问 
题 ”“ 没 有 想 要 实现 的 服务 ”等 , 因而 也 就 “没有 必要 ”编程 。 而 这 也 
正 是 编程 初学 者 面临 的 情况 。 

“我 们 开始 编程 吧 !” 即 使 别人 这 么 说 , 如 果 没 有 想 要 做 的 事情 , 那 
么 也 就 没有 动手 的 动力 。 如 果 没 有 目标 驱动 ， 也 就 没有 必要 学 习 新 技 
术 了 。 事 实 上 , 很 多 人 都 摘 不 明白 “什么 是 必须 要 学 习 的 ”。 这 种 问题 
的 解决 方法 可 以 是 试 着 开发 一 个 小 型 服务 ， 也 可 以 是 试 着 动手 解决 一 
些 本 书 中 的 简单 问题 。 大 家 不 妨 试 一 试 。 


QD 日 本 的 中 央 政府 行政 机 构 ， 相 当 于 中 国 的 教育 部 。 一 一 编者 注 
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EE EE 
52 糖果 恶作剧 


ppIIIIIIII IIIII II I II II I II I I I II I I II I II II I III I I II I III I IIIIIIIIIIIIIIIIIIIIIIIIIN, 


圣 节 时 有 一 句 著 名 的 话 :“Trick or Treat ?”( 不 给 糖 就 捣乱 )。 一 听 

到 这 句 话 ， 我 脑海 里 就 会 浮现 出 变 装 小 孩子 们 到 各 家 各 户 敲 门 的 情景 。 
这 里 我 们 转换 一 下 : 给 小 
孩子 糖果 的 时 候 ， 让 我 们 来 
捉弄 一 下 他 们 吧 ! 这 个 恶 作 
剧 就 是 ， 重 新 组 合 “ 糖 纸 ” 
和 “糖果 "。 把 草莓 味 糖果 的 
糖 纸 剥 开 之 后 ， 里 面 况 是 葡 
ee 一 一 就 是 这 么 单纯 
个 恶作剧 。 举 个 例子 ， 
i 里 有 4 颗 不 同 口味 的 
糖果 ， 那 么 重新 组 合 后 每 颗 


糖果 的 包装 纸 和 本 身 口 味 都 
不 一 致 的 情况 有 9 种， 如 
国有 加 所 示 。 [加 有 4 颗 不 同 口味 的 糖果 


当 有 5 种 口味 的 糖果 ， 每 种 各 6 颗 时 ， 重 新 组 合 后 每 颗 糖 果 的 包装 纸 和 本 身 
口味 都 不 一 致 的 情况 有 多 少 种 ( 这 里 ， 对 于 同一 种 口味 的 糖果 ， 我 们 能 区 分 出 包 
装 纸 ， 但 区 分 不 出 里 面 的 糖果 ) ? 


例 ) “ 芋 果 味 糖果 的 糖 纸 四 包 着 草莓 味 糖果 收 ” 和 “苹果 味 糖果 的 糖 纸 2) 包 
着 草莓 味 糖果 (2)” 是 两 种 不 同 的 组 合 , 但 “苹果 味 糖果 的 糖 纸 四 包 着 草 
莓 味 糖果 ”和 “苹果 味 糖果 的 糖 纸 四 包 着 草莓 味 糖 果 (2)” 则 要 看 作 是 
同一 种 组 合 。 


HIDK 
这 种 数据 量 就 不 能 用 全 量 搜索 3， 因 此 为 了 优化 处 理 速 度 ， 我 们 要 用 


内 存 化 或 者 动态 规划 算法 。 


有 


Q52 ”糖果 恶作剧 | 205 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


如 果糖 果 是 每 种 1 颗 ， 那 么 这 就 是 一 个 “ 错 排 问题 "" ( montmort 
number )。 也 就 是 类 似 “n 个 人 互 换 礼 物 ， 每 个 人 都 拿 不 到 自己 送出 的 
礼物 的 组 合 方式 一 共 多 少 种 ”这 样 的 问题 。 

把 所 有 人 都 不 会 拿 到 自己 送出 的 礼物 的 组 合 数 表示 为 a,， 则 a, = 1， 
dj = 2。 这 样 就 比较 简单 。 当 n = 4 时， 给 每 个 人 附 上 1~n 的 编号 ， 假 
设 编 号 为 1 的 人 拿 到 了 编号 为 2 的 人 送出 的 礼物 ， 那 么 这 时 有 以 下 两 种 
情况 。 

( 1 ) 编号 为 2 的 人 拿 到 了 编号 为 1 的 人 送出 的 礼物 

ee 这 时 剩 下 “n 一 2” 个 人 的 组 合 ， 所 以 是 a,_, 种 

(2 ) 编号 为 2 的 人 拿 到 了 编号 不 为 1 的 人 送出 的 礼物 

we 这 时 剩 下 “n 一 1” 个 人 的 组 合 ， 所 以 是 a,_ 1 种 


这 里 考虑 的 是 从 编号 2 到 编号 n 所 有 人 送出 礼物 的 排列 组 合 ， 所 
以 可 以 得 到 a=(n-1) x (aw-2+an-1)。 换 名 话说 ， 错 排 问 题 的 解 可 用 递 推 
公式 来 表示 ， 从 而 可 以 简单 求解 。 


{3 


\ 一 钳 排 问题 还 是 党 一 况 听 说 呢 。 
(2 ) 

、 
(ud 


那 就 没 办 法 测 单 地 用 递 推 公式 来 求解 了 ， 还 要 作 些 额外 的 处 理 。 另 
处 ， 如 果 只 是 简单 实现 当 辑 ， 那 么 因为 有 太 多 种 组 合 ， 需 要 曲 处 理 时 
间 会 很 长 ， 所 以 还 村 想 办 法 优化 -下 。 


这 种 情况 可 以 用 动态 规划 算法 或 者 内 存 化 的 方法 实现 快速 处 理 。 也 
就 是 说 , 把 当前 计算 结果 缓存 下 来 , 然后 继续 使 用 , 从 而 缩小 搜索 范围 。 


中 即 由 整数 1，2，3，…，, hn 构成 的 数列 中 ,第 i (i 志 n) 个 数 不 是 nn 的 数列 。 它 是 
以 法 国 数学 家 孟 特 马 特 ( Pierre Raymond de Montmort ) 的 名 字 命 名 的 。 一 一 编者 注 
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用 Ruby 就 可 以 实现 ， 代 码 如 代码 清单 52.01 所 示 。 


代码 清单 52.01 (q52_01.rb ) 


M, N= 6,，5  # 设置 “ 糖 纸 ”和 “糖果 ”的 数 
@memo = {} # 内 存 化 时 使 用 的 哈 希 表 


def search(candy, Color) 
return 1 if candy == [0] * N # 所 有 糖果 都 包 好 了 
# 如 果 存 在 已 内 存 化 的 结果 ， 则 使 
return @memo [candqy + [color]] if @memo.has key? (candy + 
Leoweosl 


# 统计 糖 纸 和 糖果 口味 不 一 致 的 组 合 


Cut ms 0 
candy.size.times{|i| 
Ela enn 
if candy[i] > 0 then # 糖果 还 有 剩余 时 
Gama ld = 
cnc earen(eanay ecardNR Ra 


cance = 
end 
end 
} 
@memo[candy + [color]] = cnt  # 把 糖果 个 数 和 糖 纸样 式 保存 起 来 
Eng 
Tobier Creneelol ly 


“[0]*N” 和 和“[M]*N” 这 种 写法 托 有 意思 ， 和 真是 曲 型 的 Ruby 数 组 
拘 写 法 吧 。 


能 快速 处 理 是 因为 使 用 3 内存 化 方法 ， 而 能 简单 地 处 理 大 数字 就 是 
Ruby 本 身 的 特征 3。 如 果 用 C 语 言 李 来 实现 ， 必 须 注意 这 一 点 。 


1926172117389136 种 
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处 理 大 整数 的 业务 


遇见 像 本 题 一 样 ， 答 案 是 非常 大 的 值 的 情况 时 ,很 多 人 会 觉得 
“Ruby 真是 方便 啊 ”。 不 过 ,平时 工作 中 编写 的 软件 采用 的 往往 是 公司 
指定 的 编程 语言 。 

实际 上 ,大 多 数 开发 者 并 不 会 经 常 遇 到 需要 处 理 大 整数 的 情况 。 如 
果 是 一 般 的 整数 型 数据 ， 那 么 可 以 使 用 C 语言 中 的 int 类 型 表示 32 位 
的 整数 。 即 便 是 带 符号 的 数 ， 也 能 表示 20 亿 以 上 个 数字 ， 一 般 不 需要 
太 在 意 数 位 不 够 的 问题 。 

说 到 需要 处 理 大 整数 的 业务 ， 我 脑海 里 首先 浮现 的 就 是 公司 的 经 
营业 务 等 。 虽 然 很 少 有 公司 的 单个 会 计 单 会 出 现 20 亿 日 元 这 样 的 大 数 ， 
但 如 果 要 统计 “年 度 营 业 额 ”, 那么 需要 处 理 这 种 大 数 的 公司 就 会 多 起 
来 。 除 了 人 金额, ID 编号 也 是 一 例 。 创 建 一 个 会 员 制 Web 站 点 时 , 一 般 
会 给 每 个 会 员 生 成 一 个 DD。 世 界 人 口 已 经 迫近 70 亿 了 ， 如 果 所 有 人 
都 使 用 这 个 站 点 ， 那 么 32 位 整数 就 不 够 用 了 。 

还 有 像 Twitter 这 样 的 服务 , 即便 不 是 所 有 人 都 使 用 , 但 已 经 用 
完 32 位 整数 了 。 如 果 要 开发 和 这 样 的 服务 合作 的 应 用 ,一 定 要 注意 大 
整数 的 问题 。 
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ET EET 
53 同 数 包 夹 
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这 里 有 分 别 标 了 数字 1~n 的 两 副 牌 ， 共 2n 张 。 把 这 些 牌 排 成 一 排 ， 
然后 两 张 1 的 中 间 放 一 张 牌 ， 两 张 2 的 中 间 放 两 张 牌 …… 两 张 n 的 中 
间 放 n 张 牌 。 举 个 例子 ， 当 n = 3 的 时 候 ， 有 如 国 图 所 示 的 两 种 排列 


方法 。 
加 回国 图 | 
| 辐 国 


图 葬 当 ”= 3 时 


求 当 n = 11 时 共有 多 少 种 排列 方法 ? 


如 果 牌 曲张 数 比较 少 ， 
那 就 好 朵 烦 啊 。 


那 按 顺序 排列 也 不 是 很 蕉 。 牌 的 张 数 一 


从 直 常 上 来 说 ， 比 起 先 放 小 数字 ， 还 是 先 放 大 数字 比较 简单 。 


放置 顺序 很 重要 。 同 时 ,“ 不 要 无 谓 地 搜索 ”也 很 重要 。 
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假设 一 开始 把 所 有 牌 的 编号 都 看 作 0， 然 后 从 1 这 张 牌 开 始 按 顺序 
给 牌 分 配 可 以 放 入 的 位 置 。 用 数组 表示 牌 ， 当 所 有 牌 放 置 完毕 时 结束 处 
理 。 因 为 要 尽 可 能 放置 ， 所 以 适合 用 深度 优先 搜索 来 实现 (代码 清单 
53.01 )。 


代码 清单 53.01 (q53_01.rb ) 


= 村 各 
can = N32 # 有 牌 的 初始 值 
@count = 0 


def search(cards, num) 
if num == N + 1 then  # 放置 到 最 后 时 处 理 成 功 
@count += 1 
else 
# 检查 是 否 能 放置 ， 并 按 顺 序 处 理 


(BN mms 


eco dsl ==900 eeomas a num == 0 Enen 
# 尽 可 能 地 放置 牌 ， 递归 搜索 下 一 步 
cards[i], cards[i + num + 1] = num, num 


search(cards, num + 1) 


eargsll ecard nam eu or 
engd 
} 
end 
end 
search (cards, 1) # 最 开始 放置 标记 为 1 的 牌 


puts @count 


懂 ， 是 典型 的 递归 处 理 呢 。 不 过 处 理 时 间 有 点 长 。 


那么 我 们 按照 前 面 的 直觉 ， 从 大 数字 开始 试 - 下 ? 


代码 清单 53.02 是 从 数字 较 大 的 牌 开始 放置 的 ， 只 在 代码 发 生疏 变 
曲 部 分 加 上 3 注释。 
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代码 清单 53.02 (aq53 02 .rpb ) 
的 
eardes® = 00M 2 
@eounme 
def search(cards, num) 
if num == 0 then # 把 终止 判定 改 为 0 
@count += 1 
else 
(2*N-1- num).times{|i| 
if cards[i] == 0 && cards[i + num + 1] == 0 then 
eards[lill carde[i nam T= num num 
search(cards，num - 1)  # 因为 从 较 大 的 开始 , 所 以 这 里 是 减 ; 
carxdelnl oardela um og 
end 
| 
end 
end 
search (cards, N) # 从 最 大 的 牌 开始 
puts @count 


就 这 样 改动 一 下 ， 速 度 就 提升 3 2~3 倍 呢 。 直 党 好 准 史 。 


接 下 来 的 优化 就 是 减少 无 用 曲 搜 索 3。 因 为 时 把 已 经 搜索 曲 部 分 保 


存 下 来 ， 所 以 我 们 可 以 用 内 存 化 的 办 法 。 


对 于 已 经 放置 的 牌 , 我 们 完全 可 以 无 视 它 上 面 的 数字 , 因此 还 可 以 
使 用 比特 列 来 表示 。 即 只 需要 在 放置 完毕 后 用 1 标记 已 放置 ,用 0 标记 
待 放 置 即 可 。 这 样 一 来 ,内 存 化 也 就 很 简单 了 。 因 为 要 设置 包 夹 数字 的 
位 置 ， 所 以 这 里 需要 用 位 掩 码 。 
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用 Ruby 可 以 实现 ， 代 码 如 代码 清单 53.03 所 示 。 


代码 清单 53.03 ( 9q53 03 .rpb ) 


N 


@memo = {} 


def search(cards, num) 


end 


PussnSearenl( on 


= 11 


return 1 if num = 0 
return @memo [cardqs] if @memo.has key? (cards) 


# 利用 位 运算 设置 包 夹 位 
maskc = (nm 
BE 0 
whnlee mask (2 de 
# 如 果 可 以 放置 ， 则 递归 地 搜索 
count += search(cards | mask, num - 1) if cards & mask == 0 
# 包 夹 位 置 移动 一 位 
mask ce= 
end 
@memo [leards]! = count 


速度 又 提升 3 几 售 呢 。 果 然 还 是 位 运算 速度 比较 快 呵 。 


所 以 说 ， 除 了 四 考虑 算法 ， 像 这 翌 设 计数 据 结 网 也 非常 重要 。 
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. 1201 ES 
5d 偷懒 的 算盘 
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算盘 在 国外 也 流传 甚 广 。 这 里 我 们 用 算盘 进行 加 法 运算 。 假 设 要 求 
1~10 的 和 ， 那 么 简单 地 说 ， 按 顺序 计算 “1 +2+3+4+5+6+7+ 
8 + 9 + 10” 的 和 就 可 以 得 到 答案 

用 算盘 计算 时 ， 请 注意 移动 的 算 珠 的 个 数 。 比 如 计算 “8 + 9” 时 ， 


首先 要 移动 “个 位 的 
4 个 算 珠 "， 然 后 移动 
“十 位 的 1 个 算 珠 ” 


DO [I 1] 


和 “个 位 的 1 个 算 
珠 "”。 也 就 是 说 ， 计 


算 “8 + 9” 时 一 共 
需要 移动 6 个 算 珠 
( BE )。 

而 “9 + 8” 的 
时 候 则 是 首先 移动 
“个 位 的 5 个 算 珠 ”， 
然后 移动 “十 位 的 1 
个 算 球 ” 和 “个 位 的 
2 个 算 珠 ”， 一共 移动 
8 个 算 珠 ( 加 苛 )。 


计算 9 + 8 时 
如 上 所 述 ， 计 算 顺 序 不 同 ， 珠 算 的 时 候 要 移动 的 算 珠 个 数 也 不 同 。 


求 1~10 的 和 时 ， 使 移动 的 算 珠 个 数 最 少 的 计算 顺序 是 什么 样 的 呢 ? 此 时 要 


移动 的 算 珠 个 数 是 多 少 呢 ? 


int 
HS 
oA 


本 题 要 求 的 和 是 55, 因而 只 需要 考虑 “个 位 ”和 和 “十 位 ”就 足够 3。 
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这 是 求 要 移动 的 算 珠 个 数 的 问题 。 因 为 最 大 是 55， 所 以 可 以 拆 分 成 


“十 位 上 5 的 算 珠 移动 个 数 ”“ 十 位 上 1 的 算 珠 移动 个 数 ” "个 位 上 5 的 
算 珠 移动 个 数 ” 和 “个 位 上 1 的 算 珠 移动 个 数 ” 这 4 个 问题 。 


这 里 只 是 求 这 些 要 移动 的 算 珠 个 数 之 和 ， 因 此 先 不 作 任何 优化 ， 完 
全 按照 


问题 的 要 求实 现 。 我 们 可 以 用 Ruby 实现 ， 代 码 如 代码 清单 54.01 


所 示 。 


代码 清单 54 .01 (q54_01.rb ) 


# 加 到 原始 数 后 ， 返 回 算 珠 移动 个 数 

def move (base, add) 
# 确认 十 位 上 5 的 算 珠 位 置 
To (base + add) .divmod (50) 
om eT base.divmod (50) 


# 确认 十 位 上 1 的 算 珠 位 置 
a2.a3=al divmod(1) 
ba ba = DL dliwv mLoy 


# 确认 个 位 上 算 珠 的 位 置 
a4, a5 = a3.,divmod(5) 
DA ps5 D3 givmaoad(s) 


# 根据 所 有 位 置 的 差 对 移动 个 数 执行 加 法 计算 
(a0 - b0).abs + (a2 - b2).abs + (a4 - b4).abs + (a5 - b5) .abs 
end 


# 对 移动 序列 计算 移动 个 数 
defooaount (stE) 
ente totaal=0 
list.each{|i| 
enee =movellteotsen 
Sober = 
lL 
En 
end 


# 从 1~10 的 数列 中 求 最 少 的 算 珠 移动 个 数 


Ia O00) 

(| 有 | 
nova = ne IE 同属 

} 

puts min 
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\% divmod 是 求 高 和 余数 的 处 理 吧 。 
(cir) 


这 个 处 理 流程 很 易 懂 ， 但 处 理 速 度 有 点 慢 。 我 手头 的 机 器 执行 340 
逢 呢 。 


那么 就 来 优化 一 下 吧 。 这 里 可 以 用 内 存 化 的 方法 哦 。 


人 
分 的 移动 个 数 是 一 定 的 , 所 以 可 以 缓存 这 部 分 的 结果 , 从 而 提高 程序 处 
理 速 度 。 

本 题 中 各 个 数字 都 出 现 且 仅 出 现 1 次 ,所 以 可 以 用 比特 列 中 的 1 的 
位 置 来 表示 已 使 用 的 数字 。 璧 如 1、3 和 5 已 使 用 的 情况 下 ， 可 以 用 比 
特 列 0b0000010101 来 表示 。 


用 Ruby 实现 时 ， 代 码 如 代码 清单 54.02 所 示 。 


代码 清单 54.02 (q54_02.rb ) 


N=10 


# 加 到 原始 数 ( 比特 列 ) 后 
def movel(bit, add) 
lbase =°0 
N.times{|i| 
base T= Ene (0 


回 算 珠 移动 个 数 


山 


} 
# 确认 十 位 上 5 的 算 珠 位 置 
a0, al = (base + add) .divmod(50) 


lb0% = pases divnoa(son 


# 确认 十 位 上 1 的 算 珠 位 置 
a a ooaleo) 
Da = mo oy) 


# 确认 个 位 上 算 珠 的 位 置 
a4, a5 = a3.divmod (5) 
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D4 bs = b3.divmod!(s) 


# 根据 所 有 位 置 的 差 对 移动 个 数 执行 加 法 计算 
(a0 - b0).abs + (a2 - b2).abs + (a4 - b4) .abs + (a5 - b5) .abs 
end 


@memo = Hash.new(0) 
@memo[(l1 << N) - 1] = 0 


# 求 从 1~10 求 和 时 ， 最 少 的 算 珠 移动 个 数 
defesearceh (ome) 
return @memo[bit] if @memo.has key? (bit) 
ma = OO 
N.times{|i| 


ET 
min = [min, move(bit, i + 1) + search(bit | (1 << i))] .min 
end 
} 
@memo [bit] = min 


end 


puts search(0) 
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DD 平分 蛋糕 


pppIIIIIIIIIIII II I II II I IIII I II I I II I II II I I I II I II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


假设 要 公平 地 分 蛋糕 。 不 过 单纯 地 对 半分 有 点 无 聊 ， 所 以 我 们 将 采 
用 以 下 切 法 。 

蛋糕 是 m xn 的 长 方形 “初始 状 态 ” 如 国 B 所 示 ， 可 以 根据 1x1 的 
方 格 沿 着 直线 切 蛋糕 。 因 为 是 直线 切 分 ， 所 以 每 次 切 分 一 定 会 切 分 为 两 半 。 

这 里 ， 两 人 轮流 切 分 蛋糕 ， 切 蛋糕 的 人 吃 掉 两 半 中 小 的 一 块 ， 而 剩 
下 的 蛋糕 由 另 一 个 人 切 ， 切 完 也 是 吃 小 的 一 块 ， 然 后 重复 这 个 过 程 。 如 
果 切 分 出 来 的 是 两 块 同样 大 小 的 蛋糕 ， 则 吃 其 中 任意 一 块 。 最 后 一 块 不 
切 ， 直 接 由 下 一 个 切 蛋糕 的 人 吃 掉 。 
初始 状态 示例 1 而 示例 2 


(4)(5) 


(1) 
蛋糕 切 分 示例 


举 个 例子 ，4 x4 的 正方 形 蛋 糕 可 以 用 示例 1 和 示例 2 的 切 法 。 这 里 
我 们 思考 一 下 使 两 人 最 终 吃 掉 的 蛋糕 的 量 相同 的 切 分 方法 。 据 图 可 知 ， 
采用 示例 1 这 种 切 法 时 ， 灰 色 部 分 明显 比较 多 ， 而 示例 2 的 切 法 才能 使 
两 人 最 终 吃 掉 同 样 多 的 蛋糕 。 


如 果 是 16 x 12 的 长 方形 蛋糕 ， 那 么 当 有 一 种 切 法 使 两 人 吃 掉 的 蛋糕 同样 多 
时 ， 切 掉 的 蛋糕 的 长 度 是 多 少 ( 上 图 示例 2 中 , (1) 是 4 格 , (2) 是 3 格 , (3) 是 3 
格 ，(1) 是 4 格 ，(4) 是 1 格 ， 因 此 切 掉 的 蛋糕 共 12 格 ) ? 


能 使 两 人 吃 掉 的 蛋糕 同样 多 的 切 法 有 很 多 种 ， 这 里 规定 求 其 中 切 掉 
部 分 的 长 度 最 短 的 一 种 切 法 。 
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大 致 来 说 ， 这 个 问题 有 两 种 解法 。 一 种 是 如 本 题 所 述 ， 按 顺序 横向 
切 分 和 纵向 切 分 ; 另 一 种 是 由 1 x 1 的 正方 形 倒 过 来 拼 成 原始 的 蛋糕 。 

这 里 我 们 看 一 下 按 顺 序 横向 和 纵向 切 分 的 方法 。 一 边 切 分 一 边 对 比 
两 人 吃 掉 的 蛋糕 大 小 ， 如 果 剩 最 后 一 块 和 蛋糕 时 ， 两 人 吃 掉 的 蛋糕 量 相差 
1， 那 么 就 是 本 题 要 求 的 切 法 。 

下 面 我 们 用 Ruby 采用 内 存 化 方法 并 递归 搜索 来 实现 ， 代 码 如 代码 
清单 55.01 所 示 。 


| 代码 清单 55 .01 (q55 01.rb) 


@memo = {} 
defyeutyeake (wv no defy 
# 如 果 纵 向 较 长 ， 则 替换 成 横向 
ww 
# 如 果 存 在 缓存 ， 则 应 用 缓 丰 
Beturn omemollw aEElN omemon asekey ov a ones 
# 搜索 到 最 后 时 ， 除 了 相差 1 以 外 的 都 设置 成 无 穷 大 


EW = = te 
reeurn onemoe Dw a re an 0 eloae LNELINEOLY 
end 


# 横向 和 纵向 切 分 

tate S(T (Ww/2) map(li 
Eeroutaearel(w -nn ree 

b 


okon= ee nap 
woeutyoalke (wn uw fa) 


} 

# 从 横向 和 纵向 两 种 切 法 中 选 较 小 的 一 个 

@memollw nadirffll = (Eate rr yoko)e min 
end 


pussmeuseakels E20 


为 什么 “除了 相差 1 以 外 的 都 设置 成 无 限 大 ” 


从 倒数 第 4 行 可 以 在 到 返回 的 是 
结果 设置 得 越 大 越 好 。 


景 小 值 ， 为 避免 返回 不 正确 的 值 ， 
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接 下 来 进 对 不 必要 的 搜索 进行 剪 枝 。 如 果 相 差 超过 当前 
蛋糕 的 一 半 , 则 最 终 不 可 能 交 为 相同 的 量 , 所 以 这 时 可 以 直接 终止 搜索 。 


实现 了 上 述 逻 辑 的 代码 如 代码 清单 55.02 所 示 。 


代码 清单 55.02 (gq55_02.rb ) 


@memo = {} 
def cout cake(w, na diff) 
# 如 果 纵 向 较 长 ， 则 替换 成 横向 
丸 且 本 下 
# 如 果 存 在 缓存 ， 则 应 用 缓 在 
return Omemolllw ne ome rt omemo na key lv DER 


# 搜索 到 最 后 时 ， 除 了 相差 1 以 外 的 都 设置 成 无 穷 大 
Wem 

ESE onenonm Eel (Es 0 loat :TNETNInY 
end 


# 前 枝 ( 相差 大 于 蛋糕 的 一 半 ， 则 设置 为 无 穷 大 ) 
Pet urn bp loaty: NETNTTY 2 /2 Ef 


# 横向 和 纵向 切 分 
tate = (1. (WwW/2)) .map{l|i| 
her cuteeakel( On Ree) 
} 
Yoko (Tn map(lad 
We enw ne 


} 
# 从 横向 和 纵向 两 种 切 法 中 选 较 小 的 一 个 
Cnemallwaamn desmate yoroN mm 


end 


putemeueake ue 


前 枝 曲 效果 不 太 明 显 。 如 果 计 算 量 增 大 , 那么 处 理 束 
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即使 号 30x30 的 大 小 ， 也 在 不 到 5 徐 内 找到 了 答案 呢 。 


深度 优先 搜索 的 时 候 ， 前 枝 越 早 ， 速 度 越 快 。 


JavaScript 版 本 的 实现 如 代码 清单 55.03 所 示 。 


代码 清单 55.03 ( 9q55 03.js ) 


var memo = {}; 
Foneotion coteakel(wv re aer)l 
if (w < h){ 


valeteme = ww = n= Eemep 
} 
em 
return memolwv ne 
} 
if ((w == 1) && (hn == 1)){ 
emummemnemol we Ene Oe 
} 
tae (a ee elt 0 
Eeeurmn nFnnnEey 


} 
/* 横向 和 纵向 切 分 */ 


var result = new Array(); 
fOr (var =] 1 <= parseTnt(w/ 2) 077){ 
eesvult oun cucale(wv ee 
b 
for (var 10= 1 ,1 <= parsernt (hn / 2) i177){ 
Leave Ushi(w routncake (we ne Ee 


} 
/* 从 横向 和 纵向 两 种 切 法 中 选 较 小 的 一 个 */ 


return memo[[w, h, diff]] = Math.min.apply (null, result); 


} 


console.log(cut cake(16, 12, 0)); 
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“本 周 算法 ”栏目 上 线 一 年 多 来 ， 已 经 有 5000 多 人 次 来 解答 我 在 
CodeIQ 网 站 上 出 的 题 。 有 些 人 还 对 同一 个 问题 给 出 了 不 同 的 解答 方法 ， 
因此 源 代码 累计 超过 了 5700 份 。 

我 在 拜读 很 多 人 的 解答 后 发 现 ， 大 家 的 编码 风格 相差 其 远 。 这 并 不 是 
所 用 的 编程 语言 的 差异 ， 而 是 对 同一 个 问题 ， 即 便 用 同一 种 编程 语言 ， 不 
同 用 户 的 源 代码 组 织 方式 也 有 很 大 不 同 。 最 让 人 惊讶 的 是 ， 出 了 几 次 题 之 
后 ， 我 发 现 自己 能 在 不 知道 答题 人 姓名 的 情况 下 分 辨 出 哪些 答案 出 自 同一 
人 之 手 。 也 就 是 说 ， 这 些 源 代码 有 着 强烈 的 个 人 风格 。 不 只 是 缩 进 、 变 量 
命名 等 ， 空 格 位 置 和 注释 方法 等 都 能 如 实地 反映 出 一 个 人 的 编程 风格 。 这 
里 并 不 是 在 讨论 就 优 就 劣 ， 而 是 想 说 源 代码 风格 的 确 因 人 而 异 。 

一 般 来 说 ， 我 们 平时 很 难 客观 地 评价 自己 的 代码 。 不 过 直 界 上 有 非常 
多 的 源 代码 都 是 公开 的 。 我 们 可 以 阅读 开源 项 目的 源 代码 ,或 者 读 大 量 的 
书 , 或 者 也 可 以 多 读 公司 同事 的 源 代码 来 比较 。 
建议 大 家 试 着 多 和 别人 的 源 代码 作 比 较 ， 看 看 差异 在 哪里 ， 并 且 多 想 
想 他 为 什么 要 这 样 写 。 实 际 上 ， 即 便 只 有 10 行 源 代码 ， 我 们 也 能 从 中 
见 一 个 人 的 编程 技巧 。 

那么 ， 你 的 编程 风格 是 什么 样 的 呢 ? 


洲 
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EE ESD 
56 和 鬼 脚 图 中 的 横 线 


pIIIIIIII IIIII II I I I II II I I I II I I II I II II II I II II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


假设 我 们 要 在 鬼 脚 图 ”中 划 横 线 使 上 方 和 下 方 相同 的 数字 相连 。 但 
是 ， 这 里 要 根据 给 定 ne ed 

横 线 只 能 连接 相 邻 两 条 竖 线 ， 不 能 越过 几 条 竖 线 连接 。 
Mt 二 出 太 式 2 


例 ) 上 方 数字 : 1、2、3、4 
2、1 


下 方 数 字 : 3、4、2、 
上 面 这 个 示例 对 应 的 就 是 
医 国 中 的 排列 方式 1。 这 时 最 少 


的 横 线 条 数 是 5 条 。 同 样 地， 
最 少 需 要 5 条 横 线 的 还 有 排列 
方式 2 里 的 “4、3、1、2” 这 1 


个 排列 。 排 列 方式 3 也 是 用 5 
和约 ， 人 岂可 以 二 上 
侧 这 文 样 只 用 3 条 横 线 连接 。 也 
就 是 说 ， 当 下 方 数 字 的 排列 为 Ls ， 


6 7? 5 [Sg 久 量 /> 
3 Ss be 需要 的 最 少 0 鬼 脚 图 示例 
横 线 条 数 就 不 是 5 了。 


给 定 7 个 数字 ( 即 坚 线 有 7 条 ) 时 ， 最少 需要 10 条 横 线 的 下 方 数字 的 排列 
方式 共有 多 少 种 ( 这 里 规定 ， 即 使 可 以 在 不 同位 置 使 用 横 线 连接 ， 但 是 只 要 下 方 
数字 的 排列 顺序 一 致 ， 就 算 同 一 种 排列 方式 ) ? 


上 方 数字 1, 2, 3,4,5,6,7 


中 起 源 于 日 本 室町 时 代 ( 1336 年 一 1573 年 ) 的 游戏 ， 常 用 于 抽签 等 。 玩 法 是 先 在 
纸 上 画 平行 的 紧 线 ， 坚 线条 数 与 参加 抽签 的 人 数 相 等 。 以 紧 线 一 端 为 起 点 ， 另 一 
端 为 终点 。 在 起 点 处 空 出 写 人 名 的 地 方 ， 并 在 终点 处 写 上 抽签 的 项 目 。 接 下 来 在 
相 邻 的 坚 线 之 间 任 意 划 横 线 ， 但 横 线 不 得 跨越 两 条 以 上 的 紧 线 。 为 确保 公平 ， 其 
他 参加 者 也 可 自由 添加 横 线 ， 但 此 时 需 将 终点 处 折 登 ， 隐 藏 抽签 的 项 目 。 最 后 每 
人 选 一 个 起 点 (注意 不 能 重复 选 ) 开始 往 下 走 ， 有 横 线 时 必须 转弯 ， 即 顺 着 横 线 
走 到 隔壁 的 横 线 。 最 后 到 达 的 终点 即 自己 抽 中 的 项 目 。 一 一 编者 注 
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求 息 野 图 的 方法 还 是 有 不 少 的 吧 。 


合适 网 


重要 的 是 , 四 从 处 理 环 度 、 实 现 拘 难 易 程度 等 方面 考虑 来 小 择 
方法 。 


关于 从 最 少 横 线 条 数 倒 推 鬼 脚 图 的 算法 ， 有 的 实现 起 来 很 简单 ， 有 的 
则 速度 很 快 。 这 里 介绍 两 种 简单 的 方法 ， 以 及 一 种 优化 了 处 理 速度 的 方法 。 
( 解法 1 ) 

一 种 常用 的 方法 是 ， 用 直线 连接 上 方 和 下 方 的 相同 数字 ， 取 这 些 直 
线 的 交点 (攻占 )。 


1 2 3 4 1 2 3 4 


3 4 2 1 3 2 1 4 
划 求 交点 
每 个 交点 都 对 应 一 条 横 线 ， 所 以 只 需要 像 冒 泡 排序 一 样 求 数字 交换 
次 数 就 可 以 了 。 就 本 题 来 说 ， 只 需要 对 所 有 下 方 数字 的 数列 执行 上 述 处 
理 ， 找 出 其 中 模 线 条 数 为 10 的 排列 方式 即 可 。 用 Ruby 就 可 以 实现 ， 代 
码 如 代码 清单 56.01 所 示 。 


代码 清单 55.01 (q56_01.rb ) 


# 0 
Ne 三 10 


7 下 方 数字 " 里 需要 交换 位 置 的 数字 
0 1) ) .to a.permutation.each{ |final | 
cnt = 0 
v.times{|i| 
nc na ace coun 


让 已 LEE le (Che ES 


ES Couad 
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也 就 是 对 比 上 下 数字 ， 统 计 需 要 交换 位 置 的 数字 的 方法 吗 。 这 种 方 
法 比较 直观 ， 编 程 实现 也 相对 简单 呢 。 


PR 
a 理解 起 来 倒 不 难 ， 但 处 理 起 来 有 个 难点 ， 就 是 数字 增多 时 处 理 时 间 
MA 太 长 。 

oA Ne, 

( 解法 2 ) 


还 有 一 种 方法 : 对 下 方 数 字 ， 从 左 往 右 按 顺序 连 线 ， 使 下 方 数字 最 
终 与 上 方 数字 中 的 目标 数字 相连 ( 攻占 )。 此 时 ， 我 们 可 以 从 下 方 数字 所 
在 的 竖 线 开始 只 向 右 连 线 。 


1 3 4 2 1 3 
从 下 方 数字 开始 连 线 ， 直 至 与 上 方 数字 中 的 目标 数字 相连 


这 种 方法 的 关键 点 在 于 所 有 的 线 都 从 下 方 数字 连 出 ， 所 以 与 前 面 一 
样 ， 这 里 也 要 遍历 下 方 数字 的 所 有 数列 (代码 清单 56.02 )。 


| 代码 清单 56.02 (q56 02.rb) 


= 0 
# 计算 所 有 “下 方 数字 ”数列 中 的 横 线 条 数 
(1..v) .to a.permutation.each{ |final| 
SEaEE = (ona 
cnt = 0 
v.times{|i| 
# 找 出 对 应 的 “上 方 数字 ”的 位 
meove r= Starteindex (Er 
meves > on nenm 


# 更 换 “ 上 方 数字 ” 
starell euastlmeovele starelmovel seen 
cnt += move - i 

end 
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eolea = lL le /Cm ES 


} 


Pues eesay 


7 7 
> 9 二 ”原来 还 有 这 样 曲解 法 史 ! 


WB 


个 


大 ) 


不 过 这 种 方法 还 是 要 遍历 数列 ， 当 横 线 条 数 变 多 时 需要 的 处 理 时 间 
也 会 大 幅 增 加 呢 。 


( 解法 3 ) 

下 面试 着 优化 处 理 速度 。 我 们 可 以 在 第 2 种 解法 的 基础 上 优化 一 
下 ,用 递归 的 方式 来 实现 。 也 就 是 说 ,假设 已 经 以 最 少 横 线 条 数 构成 了 
一 个 有 nn - 1 条 竖 线 的 鬼 脚 图 。 然 后 ， 在 这 个 鬼 脚 图 的 最 右边 增加 1 条 
坚 线 ， 以 最 少 横 线条 数 构成 鬼 脚 图 。 


1 2 3 1 2 3 4 


2 3 1 2 4 3 1 
向 有 n - 1 条 坚 线 的 鬼 脚 图 中 增加 1 条 坚 线 


关键 在 于 把 下 方 数字 加 到 什么 位 置 。 如 攻 圆 堪 侧 的 图 所 示 , 如 果 加 
在 最 右边 ， 则 横 线 条 数 不 变 ; 如 果 加 在 右 数 第 1 条 和 第 2 条 坚 线 之 间 ， 
则 需要 在 最 右边 的 2 条 竖 线 之 间 的 最 下 方 加 1 条 横 线 。 同 样 地 ,如 果 加 
在 右 数 第 2 和 第 3 条 坚 线 之 间 , 则 要 在 当前 所 有 横 线 的 下 方 加 2 条 横 线 
(上 图 蓝 色 线 条 ) ; 如 果 加 在 最 左 侧 ， 则 要 加 3 条 横 线 。 


总 结 所 有 情况 可 知 ， 如 果 已 有 2 条 竖 线 ， 要 添加 第 3 条 竖 线 时 ， 以 横 
线条 数 为 索引 ， 排 列 方式 数 为 元 素 ， 则 可 以 得 到 以 下 表示 排列 方式 的 数组 。 
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[1, 1] 处 理 前 ( 要 加 0 条 横 线 的 情况 有 1 种 ， 要 加 1 条 横 线 的 情况 有 1 种 ) 


[1, 1] 往 最 右 侧 添加 ( 横 线 条 数 不 变 ) 
[1, 1] 往 右 数 第 1 条 坚 线 前 添加 ( 要 加 1 条 横 线 的 情况 有 1 种 ， 要 加 2 
条 横 线 的 情况 有 1 种 ) 


[1,1] 往 右 数 第 2 条 坚 线 前 添 全 ( 要 加 2 条 横 线 的 情况 有 1 种 ， 要 ; 
3 条 横 线 的 情况 有 1 种 ) 
[1, 2, 2, 1] 汇总 (要 加 2 条 横 1 种 ， 要 加 1 条 横 线 的 情况 
2 种 ，…… ， 共 6 种 ) 
用 Ruby 实现 时 ， 代 码 如 代码 清单 56.03 所 示 。 


号 


| 代码 清单 56.03 (q56 03.rb) 


# 和 
@v, @h = 7, 10 


# 递归 生成 横 线 
Qefimakeebaes an 
newah "Aray new( ele PV 10 
# 统计 各 横 线 的 排列 方式 数 
v.times{|i| 
h.each with index{|cnt, j| 
new hl[li+j] += cnt 


} 
} 
IE 
puts hl[@h] 
else 
makemeanssi(ve oe mew 
end 
end 


make barsi( oo Tn 


有 时 候 ， 解 决 一 个 问题 时 从 不 同 风 角度 出 和 发， 就 可 以 进行 优化 哦 。 
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最 后 一 种 解法 可 以 用 JavaScript 实现 ， 代 码 如 代码 清单 56.04 所 示 。 
有 了 这 种 方法 ， 用 不 同 的 编程 语言 可 以 写 出 同样 的 处 理 逻 辑 。 


代码 清单 56.04 (9q56 04.js ) 


/* 坚 线 和 横 线 */ 


SEA 7 


/* 递归 生成 横 线 */ 
function make bars(v, h){ 
var NewAh = new Array (he lengEn eV 1 
ES 
newenisd = 0 


} 
/* 统计 各 横 线 的 排列 方式 数 */ 
Eon (va 1 0 
fe (CEs 0 nlane J+4) 让 
new hri + j] += h[j] 
} 
} 


if (Vv == V4 1){ 
console.log (hI[H] ); 
} else { 


make Dars(v 1 newh), 
} 
} 


make bars(1, [1]); 


573 种 
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. ED BES 
57 最 快 的 联络 网 
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本 题 与 学 校 常用 的 联络 网 有 关 。 虽 然 最 近 很 多 人 都 用 微 信 联系 ， 但 
是 要 想 确保 联系 到 某 个 人 还 是 得 打 电 话 。 下 面 我 们 组 建 一 个 联络 网 。 
使 用 联络 网 时 ， 是 根据 箭头 方向 ， 由 前 一 个 人 联系 后 一 个 人 的 。 为 
确保 信息 正确 传达 ， 最 后 一 个 人 要 联系 第 一 个 人 。 这 里 规定 一 个 人 不 能 
同时 和 多 人 通话 。 中 
假设 某 个 班级 有 
老师 1 人 ， 学 生 14 
人 人， 两 人 打 电 话 会 花 a 
费 1 分 钟 。 如 果 是 如 
区 昌 所 示 的 联络 网 ， 


则 需要 9 分 钟 老 师 才 


能 确认 所 有 人 都 联系 
过 了 (箭头 下 方 的 数 + 
字 是 打 电 话 花 费 的 时 + 
间 )。 如 果 是 如 @) 所 示 人 
的 联络 网 ， 那 么 虽然 联络 网 示例 
联系 到 最 后 一 个 人 的 时 间 缩 得 了 ， 但 最 后 一 个 人 和 老师 确认 时 常常 会 遇 
到 老师 正在 与 其 他 学 生 通 话 的 情况 ， 所 以 最 终 反 而 花费 了 10 分 钟 〈 在 
@ 中 ， 最 下 方 的 学 生 是 直接 和 老师 联系 的 ， 所 以 不 需要 再 和 老师 确认 )。 
中 中 ,老师 拨打 2 次 电话 ， 接 听 2 次 电话 ， 共 通话 4 次 ; @ 中 , 老 
师 拨打 4 次 电话 ， 接 听 6 次 电话 ， 共 通话 10 次 。 我 们 要 尽量 减少 老师 
的 通话 次 数 ， 以 减轻 老师 的 负担 。 


求 直到 老师 最 终 确认 所 有 人 都 已 联络 过 时 ， 联 络 所 花费 的 最 短 时 间 。 
并 求 在 最 短 时 间 的 联络 网 中 ， 老 师 的 最 少 通话 次 数 。 


HIDK 
a eS 如 果 还 要 考虑 路 径 , 问题 会 变 得 很 复杂 , 所 以 这 里 我 们 从 学 生 的 状态 
订 入 手 吧 。 
a 
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思路 

我 们 可 以 像 题 中 说 的 那样 通过 遍历 各 位 学 生 的 通话 情况 来 进行 统 
计 。 但 是 ， 如 果 把 能 通话 但 不 通话 的 情况 也 考虑 进来 ， 那 么 当 学 生 数 增 
加 ， 处 理 时 间 将 会 指数 级 增加 〈 由 于 还 可 能 存在 某 个 学 生 在 能 通话 时 暂 
时 不 通话 最 后 总 的 联络 时 间 反 而 更 短 的 情况 ， 所 以 遍历 起 来 会 很 麻烦 )。 
如 果 从 “不 需要 区 分 每 个 学 生 ” 这 点 出 发 来 解 题 ， 那 么 只 需要 根据 学 生 
的 状态 求 “ 某 状态 人 数 的 变化 ” 即 可 。 

学 生 的 状态 可 以 分 为 如 下 3 种 。 

(a) 等 待 通话 ( 没有 人 给 他 打 过 电话 ) 

(b) 不 必 通 话 ( 已 接 到 老师 的 电话 ， 或 者 已 给 其 他 人 打 过 电话 ) 

(c) 需要 通话 ( 已 接 到 同学 的 电话 ， 还 没有 给 其 他 人 打 电 话 ) 


原来 如 此 。 不 关注 联络 过 程 , 而 是 关注 学 生 状 态 …… 
3 呢 。 


特别 是 关注 “人 数 ” 这 一 点 可 以 大 幅 优 化 性 能 。 如 果 去 者 虑 每 一 个 
学 生 的 通话 情况 , 那 就 太 复杂 3 了。 而 如 果 只 考虑 人 数 , 实现 起 来 就 很 
向 单 3。 


本 题 不 需要 考虑 学 生 的 顺序 ,所 以 可 以 只 关注 处 于 各 个 “状态 ”的 
学 生 人 数 ， 通 过 人 数 变化 判断 ， 当 最 终 所 有 学 生 状 态 都 变 为 (b) 时 终止 
处 理 。 一 开始 所 有 学 生 的 状态 都 是 (a)。 

状态 变化 如 下 。 


(a) 一 (b) : 老师 打 来 了 电话 
(a) 一 (c) : 同学 打 来 了 电话 
( 
( 


b) 一 (c) : 同学 打 来 了 电话 
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下 面 对 处 于 各 状态 的 人 数 进行 广度 优先 搜索 ， 直 到 (b) 状态 的 人 数 
变 为 14。 用 Ruby 实现 时 ， 代 码 如 代码 清单 57.01 所 示 。 


代码 清单 57.01 (q57_01.rb ) 


n= 14 

# 设置 初始 状态 人 数 (a，b，c 的 人 数 + 老师 的 通话 次 数 ) 
Statuse = 0 oo 

step = 0 # 经 过 的 时 间 


TUEEESESEUSRSSEIESE IESIOIREE ze a 
# 循环 处 理 ， 直 到 不 必 通 话 的 学 生 (b) 人 数 变 为 总 人 数 
next status =°[] 


status.each{|s| 
(s[1] + 1).times{|b 
# 不 必 通 话 的 学 生 联 系 其 他 学 生 的 人 数 
(sl2] 4 1) .times{|el 
# 需要 通话 的 学 生 联系 的 人 数 
if s[2] > 0 then # 有 可 通话 学 生 的 时 候 
# 有 学 生 联 系 老师 
ES Lol Sept hem 
nexteotatuse.=alslol cee le el sly 
end 
ed 
# 没有 学 生 联 系 老师 
Flo 0 em 
nextastat us = Tel ems Sle se 
end 
# 老师 联系 了 学 生 
Esllol oe 0 Enen 
next etatus < slol De Te glilrern sl2l DSS 
Engl 


} 
} 
status = (next status status) .unig 
step += 1 
end 
# 显示 经 过 的 时 间 
Puls sterp 
# 显示 在 最 短 时 间 的 情况 下 ， 老 师 通话 次 数 最 少 的 情况 
p status.select{|s| s[1i] == n}.min{|a, b| ar3] <=> bl[3])} 
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拿 到 问题 的 时 候 , 觉得 这 个 问题 好 难 啊 。 但 读 代 码 的 时 候 发现 “ 这 


样 就 可 以 解决 3o9"”，nF 了 一 跳 。 


像 本 题 这 样 只 有 14 人 的 情况 ， 基 本 上 一 曙 间 就 可 以 得 出 览 社 了 。 即 
便 学 生 有 30 人， 也 可 以 在 几 秒 之 内 解答 。 


不 过 ， 如 果 学 生 人 数 超过 40， 处 理 时 间 就 会 很 长 。 


昌 然 还 可 以 尝试 继续 优化 ， 不 过 代码 都 会 更 长 ， 这 里 就 不 歼 达 了 。 


这 个 问题 还 可 以 作 这 样 的 更 改 : 允许 学 生 相 互 确认 后 统一 联系 老师 。 
这 样 的 条 件 下 ， 老 师 的 通话 次 数 可 以 进一步 压缩 到 6 次 。 这 就 涉及 是 否 
允许 学 生 之 间 互 相 确认 了 。 请 大 家 把 更 改 后 的 问题 当 作 补 充 练习 题 党 斌 
解答 一 下 。 


7 分 钟 、7 次 


答案 对 应 的 联络 网 
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ED HE 
Qse 天 手绢 游戏 中 的 总 移动 距离 


pIIIIIIIIIIII III IIII I II I I I II I I II III III I I I II II III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


让 我 们 一 起 追忆 童年 ， 来 玩 “ 丢 手绢 ”的 游戏 吧 。 在 丢 手 绢 游戏 
中 ,一 个 人 负责 丢 手 绢 ， 其 他 人 则 围 成 一 圈 坐 着 ,然后 丢 手 绢 的 人 围 着 
圈 跑 。 一 旦 丢 手 绢 的 人 把 手绢 丢 到 某 个 人 身后 ， 这 个 人 就 要 在 丢 手 绢 的 
人 跑 了 一 圈 重 新 回 到 自己 身后 之 前 ， 察 觉 到 并 追 上 他 ( 丢 手 绢 的 人 如 果 
跑 完 一 圈 ， 就 在 被 丢 手 绢 的 人 原来 的 位 置 坐 下 )。 

这 里 假设 所 有 人 跑 动 的 速度 一 致 ， 因 而 丢 手 绢 的 人 一 定 不 会 被 妃 
上 。 男 外 假设 被 丢 手 绢 的 人 也 一 定 会 在 丢 手 绢 的 人 跑 完 一 圈 之 前 察觉 
到 。 一 直 进 行 游 戏 , 使 围 成 一 圈 的 人 的 排列 顺序 “ 变 为 最 初 顺序 的 倒 
序 "。 这 里 ， 由 于 大 家 是 围 成 一 圈 ， 所 以 可 以 不 考虑 坐 的 位 置 ， 只 考虑 
顺序 ， 求 最 后 所 有 人 移动 的 总 距离 。 计 算 移 动 距离 的 时 候 ， 假设 有 成 一 
圈 的 人 两 两 之 间距 离 为 1。 


例 ) 6 个 人 玩 游戏 时 

号 为 1.6 的 6 个 时 中 eg 
人 围 成 一 圈 坐 下 。 丢 手 证 
绢 的 人 编号 为 0， 假 设 
从 0 把 手绢 丢 到 1 身后 o * 
开始 ， 且 大 家 皆 为 顺 时 


针 跑 动 。 使 得 最 终 顺 序 轿 了 6 个 人 玩 游戏 时 

变 为 逆序 的 过 程 是 : 0 在 1 身后 丢 手 绢 并 跑 一 圈 ， 移 动 距 离 为 6; 1 在 5 
身后 于 手绢 并 跑 一 圈 ， 移 动 距离 为 10; 5 在 0 身后 丢 手 绢 并 跑 一 图， 移动 
距离 为 8; 0 在 4 身后 于 手绢 并 跑 一 圈 ， 移 动 距离 为 9; 4 在 2 身后 丢 手 
绢 并 跑 一 圈 ， 移 动 距 离 为 10; 2 在 0 身后 丢 手 绢 后 并 跑 一 圈 ， 移 动 距离 
为 8。 最 后 的 总 移动 距离 为 1 (=6+10+8+9+10+8)(EB)。 


假设 编号 为 1~8 的 8 个 人 围 成 一 圈 坐 下 ， 另 外 有 一 个 编号 为 0 的 人 负责 丢 
手绢 ， 求 最 终 顺 序 变 为 逆序 时 的 最 短 的 总 移动 距离 。 


流 


OQ58 ”于 手绢 游戏 中 的 总 移动 距离 。| 233 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


首先 简单 遍历 丢 手 绢 的 人 的 移动 情况 ， 作 全 量 搜索 。 因 为 是 围 成 一 
圈 ， 所 以 可 以 设置 目标 状态 ， 即 各 个 数字 按照 逆序 排列 的 所 有 数组 ， 只 要 
遍历 结果 和 其 中 任意 一 个 数组 一 致 则 得 到 一 组 搜索 结果 。 为 缩短 处 理 时 间 ， 
当 出 现 满足 条 件 的 搜索 结果 后 ， 往 后 只 搜索 移动 距离 比 这 个 结果 小 的 情 
况 即 可 。 这 里 用 Ruby 实现 递归 处 理 ， 代 码 如 代码 清单 58.01 所 示 。 


T 
< 


代码 清单 58.01 (q58_01.rb ) 


# 人 数 
@n = 8 
# 最 短 移动 距离 
@min step = 98 
# 目标 状态 
@goal =°[] 
(1..@n) .each{ |i| 
@goal (on toRavreverse aCe 


} 


daeensearenl(en or oases 
if oni == 0 then # 一 开始 负责 丢 手 绢 的 人 在 圈 外 时 
if @goal.include? (child) then 
puts "#{step} #{log}" # 记录 移动 距离 和 丢 手 绢 的 人 的 位 置 


@min step = [step, @min step] .min 
EUREE 
end 
end 
(en en | # 从 当前 负责 丢 手 绢 的 人 的 位 置 开始 遍历 


Step On ommstep enm 
nexbacnualoe elor eone 
pos = (oni pos + i) gs @n # 下 一 个 丢 手 绢 的 人 的 位 置 
next child[pos] = oni # 丢 手 绢 的 人 坐 下 
next oni = child[pos] # 下 一 个 丢 手绢 的 人 离开 圈子 
Search(next ch next iene Dos 
step + @n + i, log + pos.to s) 


end 


# 第 一 个 丢 手 绢 的 人 坐 到 1 的 位 置 上 
Scale (Ron Eton on 


(中 oni 是 日 语 “ 鬼 ”一 词 的 罗马 字 ， 这 里 指 的 是 “ 丢 手 绢 的 人 ”。 一 一 编者 注 
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二， 为 什么 设置 景 短 移 动 距离 为 98 呢 ? 


在 用 程序 解 题 前 ， 大 致 预 估 移 动 距离 可 以 有 效 缩小 搜索 范围 。 所 谓 
曲 逆序 排列 可 以 通过 固定 2 人 的 位 置 ， 让 其 他 人 移动 到 对 称 位 置 上 


有 8 个 人 时 ， 从 “1~8 控 吴 序 排列 ”这 个 状态 开始 ， 先 固定 2 和 6， 
然后 交 损 1 和 3, 4 和 8, 5 和 7 即 可 实现 逆序 排列 。 这 时 移动 距离 为 
98， 是 这 样 吧 ? 


(i 
Qo 完全 正确 ， 有 进步 嘛 。 


e908 0'9 2 
0 e-e 6 


多 3 
@. e.@ @， 9o.@ 


固定 2 和 6， 逆 序 排列 


按照 这 个 思路 实现 的 程序 大 概要 花 5 秒 才 能 求 出 答案 ,所 以 下 面 来 
优化 一 下 这 个 程序 吧 。 我 们 可 以 像 Q42 里 那样 ， 正 向 和 反 向 同时 开始 
搜索 ， 以 提高 速度 。 

虽然 可 以 双向 搜索 , 但 因为 是 环形 结构 ,所 以 没 办 法 事先 确定 哪个 
位 置 才 是 最 优 的 。 为 此 我 们 需要 把 最 初 的 1 的 位 置 固定 ,并 准备 “终止 
状态 为 1 出 现在 各 个 位 置 上 的 数组 ”( 代码 清单 58.02 )。 
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代码 清单 58.02 (q58_02.rb ) 


# 包含 丢 手 绢 的 人 
@all =" (0..@n).to a 


# 初始 状态 
Stanme = 00) 
Sevaell(L. v0) veeral = Il 


# 终止 状态 
goal = {} 
@n.times{ |i| 
goal[(1..@n) .to a.reverse.rotate(i)] = [] 


} 


# 求 移动 距离 
def qist(1og) 
Bet oniEe Lo Lze = 0 
eheck = Jog.clone 
Bre cheek emfet 
Sum = @n + pre 
check.each{ |c| 
sum += n+ (CcC + @n - pre) % @n 
oa Se 


# 搜索 ( direction 为 true 时 是 顺序 方向 ， 为 false 时 是 逆序 方向 ) 
def search(child, direction) 
child.clone.each{|key, value| 
oni = (@all - key) [0] # 没有 被 使 用 的 就 是 丢 手绢 的 人 
@n.times{|i| 
KKey Glone 
oly = Omas 
Vv = value + [i] 
eh as ey nenm 
if direction then # 顺序 方 
ET 三 二 


oF 


else # 逆序 方 应 
chilalg = if dist(Vv.reverse) < dist (child[k|.reverse) 
end 
else 
chniyd[tk] = Vv 
end 
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} 


end 


em = 
while (start.keys & goal.keys).size =="0 do 
if cnt % 2 == 0 then # 偶数 时 顺序 方向 搜索 
search(start, cnt % = 
else # 奇数 时 道 序 方向 搜索 
searenl(lgoal ee cnt 2 == 0 
end 
cnt += 1 
end 


# 双向 搜索 结果 汇聚 时 ， 计 算 最 短 移动 距离 

TIE 98 

(start.keys & goal.keys) .each{|c| 
d=dist(startlec) rgoallell.reverse) 
Te rm al ma 


} 


puts min 


顺序 和 逆序 搜索 几乎 同 时 进行 ， 这 时 使 用 桂 记 来 控制 代码 就 清爽 多 
3 呢 。 


程序 湿 辑 提 杂 3 点， 但 处 理 时间 降 低 到 1 秒 左 右 3。 


VPR 

ee 即使 这 样 ， 还 是 存在 很 多 无 用 的 搜索 过 程 ， 优 化 的 空间 还 很 大 ， 请 
Ne 一 定 再 尝试 优 化 一 下 。 

MAM 

4 96 


Q58 ” 丢 手 绢 游戏 中 的 总 移动 距离 | 237 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


满足 最 短 距 离 96 的 丢 手 绢 的 方法 有 36 种， 下面 是 其 中 1 种 。 一 开 
始 1~8 顺 时 针 围 成 一 圈 ， 手 绢 被 丢 下 的 位 置 顺序 为 0、1、2、4、2、5、 


1、6、0， 而 人 的 排列 顺序 变化 如 下 所 示 。 

12345678 

上 在 0 号 的 位 置 后 丢 手绢 并 跑 一 圈 一 移动 距离 8 
02345678 

| 在 1 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 移动 距离 9 
01345678 

| ms 在 2 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 ”移动 距离 9 
01245678 

业 在 4 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 ”移动 距离 10 
01243678 

| 在 2 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 ”移动 距离 14 
01543678 

0 在 5 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 ”移动 距离 11 
01543278 

上 在 1 号 的 位 置 后 丢 手绢 并 跑 一 圈 ”一 移动 距离 12 
06543278 

| 在 6 号 的 位 置 后 丢 手 绢 并 跑 一 圈 一 移动 距离 13 
06543218 

| 在 0 号 的 位 置 后 丢 手绢 并 跑 一 圈 ”一 移动 距离 10 
76543218 


可 知 ， 移 动 距离 之 和 为 96。 
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ED ED 
Qi 合并 单元 格 的 方式 


pIIIIIIIIIIII II I II II I IIII I II I I II I I III I I III I II IIIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


日 本 人 非常 喜欢 合并 单元 格 ， 壁 如 “Excel 方 格 纸 ”"? 这 种 用 法 。 这 
次 我 们 来 探讨 一 下 电子 制 表 软件 中 “合并 单元 格 ” 相 关 的 问题 。 假 设 这 
里 有 2 行 2 列 的 单元 格 ， 则 合并 后 可 得 到 的 新 的 单元 格 如 国 加 所 示 ， 共 

种 。 虑 加 中 NG 处 的 形状 是 合并 不 出 来 的 ， 需 要 排除 掉 。 


田 旦 牟 旦 加 巴 
门 田 印 田 日 口 


国名 2 行 2 列 的 单元 格 的 合并 


假设 这 里 有 4 行 4 列 的 单元 格 ， 求 共有 多 少 种 合并 方式 ? 此 外 ， 最 终 不 存在 
1x 1 的 单元 格 的 合并 方式 有 多 少 种 ( 也 就 是 说 , 有 多 少 种 合并 方式 能 使 得 合并 后 
得 到 新 的 单元 格 中 不 存在 未 合并 的 单元 格 ) ? 


怎么 表示 单元 属 形 状 是 一 个 难点 吗 。 


从 单元 属 的 边框 下 手 是 一 个 方法 哦 。 


中 即 用 Excel 工作 表 制 作 表格 时 ， 大 幅 缩 小 行 高 和 列 宽 ， 把 表格 调整 成 方 格 纸 (或 
称 坐 标 纸 ) 那样 。 近 年 来 ， 也 有 很 多 日 本 人 认为 不 应 该 使 用 Excel 写 文章 、 排 版 。 
这 是 因为 ， 在 后 期 修改 用 Excel 制作 的 文件 时 ， 如 果 不 是 由 最 开始 制作 表格 的 人 
修改 ， 那 么 修改 起 来 非常 麻烦 ， 这 会 给 借助 IT 提高 工作 效率 和 生产 能 力 带 来 很 
大 的 危害 。 


注 
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这 个 问题 大 体 上 有 2 种 思路 。 一 种 是 单元 格 的 形状 ， 另 一 种 是 单元 
格 的 边框 。 
首先 从 单元 格 的 形状 来 看 。 由 于 单元 格 内 只 能 放置 矩形 ， 所 以 我 
们 可 以 从 左上 角 开 始 往 右 下 角 放 置 和 矩形， 遍历 所 有 可 能 的 矩形 放置 情 
况 ， 直 到 放置 不 下 再 终止 搜索 。 用 Ruby 实现 时 ， 代 码 如 代码 清单 59.01 
所 示 。 


[HI 


代码 清单 59.01 (gq59_01.rb ) 


# 设置 搜索 边界 

WH = 

# 搜索 函数 

# pos : 搜索 位 置 

# cells : 用 true / false 表示 单元 格 是 否 已 经 被 使 用 

# is1x1 : 是 否 还 有 1x1 的 单元 格 

# 返回 值 : 总 的 合并 方式 数 ， 以 及 不 出 现 1x1 单元 格 的 合并 方式 数 
def searchl(pos, cells, 1s1x1) 


if pos == W * Hthen # 搜索 结束 
TE ls lx Enen 
re ol 
else 
retwurne a 
end 
end 


# 如 果 搜 索 位 置 已 被 使 用 ， 则 移动 到 下 一 个 位 置 


Eeturn searcm(Dos Tl cells ele rE oeslposd 


# 按 顺 序 搜索 矩形 
os Wo /Ww 
re .=o ol 
ES # 于 
(1..(W - x)).each{|dx| # 水 平 
me ueelise eellisselone 
settable = true # 能 否 设置 矩形 
dy.times{|h| 
dx.times{ |w| 
LE next eoellesl( wn Wthenm 
# 已 经 设置 完毕 
settable = false 
Se 
exEECeES Tw (hn Ww = EUS 


ot 


的 边界 
的 边界 


区 
殉 


ot 
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end 


} 
} 
if settable then 
# 如 果 能 设置 矩形 ， 则 设置 并 进入 下 一 次 搜索 
es、 = Searen(pos tr nextaeellsy 
dsl || (Gl == 1 CE 07 == 1) 
resultl[0| += res[0] 
resultl r= es 


end 
} 
} 
return result 
end 


# 初始 化 单元 格 
cells = Array.new(W * H, false) 
puts search(0, cells, false) 


这 个 方法 的 特征 是 用 一 维 数组 来 表示 所 有 单元 赂 呢 。 


似乎 也 可 以 用 二 维 数 组 ， 那 为 什么 用 一 维 数 组 呢 ? 


使 用 一 维 数 组 是 为 3 方便 缘 币 。 璧 如 我 们 来 看 一 下 代码 清单 59.02 
这 样 的 代码 。 


清单 59.02 (aq59 02.rb ) 


a = 2 


ce = | 
oq e oleome 
QIolliol= 5 

中 十 

pd 
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‘i 
0 


执行 后 得 到 以 下 结 只 
[1, 2, 3, 4] 

[5, 2, 3, 4] 

[[5, 2], [3, 4]] 

[[5, 2], [3, 4]] 


如 果 是 一 维 数组 ， 复 制 后 的 数组 的 变化 不 会 对 原始 数组 产生 影响 。 
但 二 维 数组 的 复制 中 , d 的 变化 会 导致 原 数 组 中 上 c 发 生变 化 。 在 复制 数 
组 的 时 候 一 定 要 注意 这 种 情况 。 


、 
。 


本 题 只 有 4x4 的 单元 格 ， 求 解 处 理 不 到 1 秒 就 可 以 完成 。 不 过 如 
果 单 元 格 增多 ， 需 要 的 处 理 时 间 就 会 很 长 。 我 们 可 以 利用 内 存 化 方法 ， 
把 已 经 搜索 的 部 分 保存 下 来 重复 利用 ， 以 提高 处 理 速 度 。 不 过 还 可 以 从 
“单元 格 的 边框 ”这 个 思路 去 解决 。 

这 种 方法 可 以 只 遍历 内 部 的 边框 ， 所 以 可 以 缩小 搜索 范围 。 璧 如 
4x4 的 单元 格 只 需要 遍历 3x3， 也 就 是 9 个 位 置 的 边框 即 可 。 单 元 格 
顶点 处 的 边框 类 型 如 前 面 提 到 的 2 x 2 单元 格 一 样 ， 有 以 下 8 种 。 


这 个 区 别 也 就 是 所 谓 “ 浅 复制 ”(shallow copy> 和 “ 深 复 制 ” 
(deep copy)， 网 区 别 。 


也 就 是 说 ， 合 并 后 不 可 能 出 现 像 ”“ ”和 “Fr” 这 样 的 形状 ， 所 以 可 
以 排除 掉 。 下 面试 着 求 能 按照 上 述 单元 格 边框 类 型 合并 出 单元 格 的 合并 
方式 数 。 对 所 有 内 部 单元 格 的 项 点 ， 从 上 往 下 、 从 左 往 右 按 顺序 遍历 上 
述 8 种 类 型 。 用 Ruby 实现 逻辑 时 ， 代 码 如 代码 清单 59.03 所 示 。 
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代码 清单 59.03 ( q59 03 .rpb ) 


# 设置 搜索 边界 
W, H = 4, 4 


# 有 没有 从 单元 格 项 点 往 上 下 左右 方向 延伸 的 线 
# 比特 列 设置 方向 ，U: 上 ，D: 下 ,，D: 左 ，R: 右 
{als Dp ME Se = ONSabonoo. examoors  ON oyo)0lons ON eyo OO 


# 只 计算 内 侧 的 单元 格 项 点 ， 因 此 行列 减 1 
[wsiEa onelionee ES EE 
# 设置 单元 格 项 点 可 能 有 的 形状 ( 按 上 述说 明 顺序 ) 


an wa vo val wll wal whe ‘ao 
@enE oc oo 
@eross = 


def search (pos) 
if pos == @width * @height then # 搜索 结束 
@cnt += 1 
# 求 1xl 的 单元 格 
Gell = Array.new(W * H, true) 
@cross.each with index{|c, i| 
sp 0 otal Vay emt lala 


Seale le 
cell[(x+1) + y * W] = false if (c & U== 0) || (c & R == 0) 
Gell[lx + (yt1) * NE false if (eg&D== 10) || (eer== 0) 
Cell[I(x+1) + (y+1) * W = false if (CG &D==0) || (ce &R == 0) 
} 
Qencla eel n(n 
seh bt a 
end 
@dir.each{|d| 
@cross[pos)] = Q 
# 最 左边 或 左边 的 线 和 右边 的 线 重合 时 
# 最 上 边 或 上 边 的 线 和 下 边 的 线 重合 时 
if ((pos % @width == 0) || 
((@cross [pos] & L > 0) == (@cross[pos - 1] & R > 0))) && 
((pos / @height == 0) || 
((@cross[pos] &U > 0) == (@cross[pos - @height] & D > 0))) 
then 
search(pos + 1) 
end 
} 
end 
search (0) 
puts @cnt 


puts @cnt1xl 
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利用 表示 上 下 左右 的 比特 列 来 计算 单元 属 顶 点 的 运算 是 什么 啊 ? 


二 进 制 的 或 运算 。 上 下 左右 拘 比 特 列 真 值 为 真 的 位 置 各 不 相同 , 进 
或 运算 可 以 表示 男 线 的 位 置 。 


是 的 。 然 后 根据 左边 或 者 上 边 的 单元 格 检查 训 


本 二 和 步 搜 索 。 


个 方法 没有 别 的 问题 ， 只 是 如 果 搜 索 范 围 扩 大 ， 处 理 时 间 就 会 剧 
4 一 瞬间 就 能 求 得 结果 。 但 如 果 是 5 
行 5 列 的 单元 格 ， 那 即便 是 近来 的 计算 机 ， 也 需要 几 分 钟 才能 得 出 结果 。 


下 面试 着 找 出 能 缩短 处 理 时 间 的 方法 。 因 为 搜索 的 是 单元 格 组 合 ， 

所 以 “以 行为 单位 ”是 自然 而 然 就 能 想到 的 处 理 方法 。 也 就 是 遍历 当前 
行 中 所 有 上 下 连 线 的 情况 ， 然 后 连接 下 一 行 已 有 的 竖 线 并 统计 的 方法 。 
举 个 例子 ，4X4 的 情况 下 ， 先 求 从 第 1 行 的 3 个 单元 格 顶 点 向 下 
坚 线 的 组 合 个 数 。 然 后 ,跟从 第 2 行 的 3 个 单元 格 顶点 向 上 画 线 的 情 
况 结 合 起 来 统计 ， 并 以 此 类 推 (代码 清单 59.04 )。 


到 


代码 清单 59.04 ( q59_04.rb) 


# 设置 搜索 边界 

W, H = 4, 4 

# 有 没有 从 单元 格 项 点 往 上 下 左右 方向 延伸 的 线 
# 

U 


EE 有 
~D DUR- O00L000 0 0000l0 mo 


# 只 计算 内 侧 的 单元 格 项 点 ， 因 此 行列 减 1 
@width, @height =W- 1,H-1 
# 设置 单元 格 项 点 可 能 有 的 形状 
@dir ea ine sa ese oro ols els ol Oso 
@row = {} 


# 统计 每 行 上 下 连接 的 组 合 
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deFf maked owl(eelly 


if cell.size == @width then  ”# 能 组 合 出 1 行 的 时 候 
u = cell.map{|1| 1 & U > 0} # 往 上 连 线 的 位 置 (T/F) 
d = cell.map{|1| 1 & D > 0} # 往 下 连 线 的 位 置 (T/F) 


if @row.has key?(u) then 
@rowl[lu] [d] = @row[u]l .fetch(d, 0) + 1 
else 
@roewl[ual = (a => 7) 
end 
return 
end 
@dir.each{|d| 


# 最 左边 或 者 左边 的 线 与 右边 的 线 重合 时 
if (cell.size = 0) || 
Qld Tm > 0 ==" (eel Tast se Re > 0 ehnen 
make row(cell + |[d]) 
end 
} 
Stel 
make row([]) 


count = Hash.new(0) 
@row.each{ |up, down | 


down.each{|k, v| count[k] += v } 
} 
# 从 第 2 行 开始 ， 统 计 与 上 一 行 相 连 的 数 
n= 


while h < @height do 

new count = Hasn.new(0) 
count .each{ |bar, cnt| 
] 


@rowl[bar] .each{|k, v| new count[k] += cnt * v } 
} 
T= 
count = new count 
erid 


poount injeeel(o) {lsum mv) sum ev) 


Q59 ”合并 单元 格 的 方式 | 245 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


这 种 方法 虽然 不 能 统计 1 x 1 单元 格 的 情况 ， 但 即便 是 8 行 8 列 单 
元 格 的 合并 ， 也 能 在 几 秒 之 内 就 统计 出 来 。 


如 果 控 行 处 理 ， 可 以 很 简单 地 排除 很 多 不 满足 条 件 曲 情 况 ， 所 以 计 
算 量 会 小 很 多 呢 。 


使 用 两 层 哈 希 表 ， 怒 数据 内 存 化 也 是 性 能 提升 的 一 个 关键 点 吃 。 


70878 种 


( 不 存在 1x 1 单元 格 的 组 合 方式 是 1208 种 ) 


© Column Db 


使 用 合适 的 软件 工具 


本 题 是 与 电子 制 表 软 件 中 的 “合并 单元 格 ” 相 关 的 问题 。 很 多 公 
司 都 需要 用 到 电子 制 表 软 件 ， 不 过 并 不 是 用 它 来 “计算 ”， 而 是 用 来 做 
文字 排版 。 的 确 ， 使 用 电子 制 表 软件 可 以 像 方 格 纸 一 样 ， 简 单 地 对 齐 
行头 、 添 加 框 线 。 不 过 这 些 功能 用 文字 处 理 软件 也 可 以 做 到 。 如 果 是 
写 文章 、 排 版 ， 那 么 大 多 数 情况 下 ， 文 字 处 理 软件 是 更 好 的 选择 。 

可 是 ， 还 是 有 很 多 人 选择 用 电子 制 表 软件 ， 这 是 因为 他 们 “不 知 
道 其 他 软件 有 相应 的 功能 ”。 即 便 是 很 通用 很 流行 的 软件 , 也 往往 很 少 
有 人 能 “熟知 大 部 分 功能 ”。 如 果 你 看 着 自己 常用 软件 的 功能 菜单 下 列 
出 的 功能 ， 却 发 现 “ 没 用 过 的 功能 比 用 过 的 还 多 ”， 那 你 就 要 留心 了 。 

不 要 不 懂 装 懂 ， 偶 尔 也 读 一 读 使 用 手册 吧 。 说 不 定 你 会 发 现 ， 某 
项 工作 更 适合 用 其 他 软件 来 完成 呢 。 
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0 :分 割 为 同样 大 小 


pppIIIIIIIIIIII III IIII II I I I III I II I I II I II I I I I III III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


Q ED ETT 
6 


这 里 有 横 m 格 、 纵 n 格 的 长 方形 。 假 设 要 把 长 方形 分 为 面积 相等 的 
两 个 部 分 。 要 求 两 个 部 分 ( 同色 的 部 分 ) 里 的 所 有 方 格 都 要 纵 / 横 相连 
( 相 邻 )。 也 就 是 说 ， 不 能 把 同色 的 部 分 分 割 到 多 处 ， 而 且 即 便 对 角 连 着 
也 不 看 作 是 相连 。 

两 个 部 分 不 要 求 形状 一 致 ， 只 要 求 面 积 相 等 。 分 割 的 最 小 单位 是 1 
个 方 格 ， 不 能 斜 着 分 割 1 个 方 格 ， 也 不 能 将 1 个 方 格 分 为 多 个 。 

当 m = 4, n = 3 时 ,符合 条 件 和 不 符合 条 件 的 分 割 方法 如 国 国 所 示 。 


JE 
十 


[EU 符合 条 件 和 不 符合 条 件 的 分 割 方法 示例 


求 当 m = 5, n = 4 时 ， 有 多 少 种 分 割 方法 ( 以 分 割 线 的 位 置 为 准 。 如 果 分 割 
线 一 致 ， 即 使 两 个 部 分 的 颜色 相反 也 要 是 看 作 是 1 种 分 割 方法 ) ? 


Hi 


景 简单 的 办 法 应 该 是 先 涂 好 颜色 ， 然 后 确认 是 否 笨 合 相 邻 条 件 吧 。 
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这 个 问题 大 体 上 有 三 种 解法 。 


中 先 把 长 方形 分 为 面积 相等 的 两 个 部 分 ， 然 后 检查 是 否 符合 相 邻 的 条 件 。 
@) 从 左上 角 开 始 上 色 ， 直 到 着 色 面 积 变 为 总 面积 的 一 半 。 
(3) 画 分 界线 ， 把 长 方形 分 为 面积 相等 的 两 部 分 。 


从 实现 的 难 易 程度 来 看 ， 解 法 由 最 简单 ， 解 法 凶 最 复杂 。 下 面 首先 
用 Ruby 实现 解法 中 (代码 清单 60.01 )。 在 长 方形 的 各 个 方 格 里 分 别 标 
上 0~19 这 20 个 数字 ， 并 以 10 个 为 一 组 分 成 两 组 ， 再 进一步 递归 判断 
各 组 内 部 的 方 格 是 不 是 都 纵 / 横 相 连 。 


代码 清单 60.01 (q60_01.rb ) 


# 长 方形 大 小 


W, H= 5, 4 


def ”check\(color,. del) 
color.delete (del) 
# 设置 移动 方 应 
left ruaqne Up downe= de "dele ed Ww de ew 
# 如 果 移 动 方向 上 有 相同 颜色 ， 则 继续 向 这 个 方向 搜索 
check (color, left) if (ael sgW> 0) && color.include? (left) 
check(color, right) if "(del % Wl!=W 1) ee color.include? (right) 
check (color, up) if (del / W > 0) && color.include? (up) 
check (color, down) :if (del / W != H - 1) && color.include? (down) 
end 


# 初始 化 长 方形 
mape =(0F VE Etona 
count = 0 


map.combination(W * H / 2){|blue| # 把 一 半 标 为 蓝 色 
if blue.include? (0) then # 左上 角 固定 为 蓝 
white = map - blue # 剩 下 的 是 白色 
check (blue, blue[0]) # 蓝 色 是 否 互 相连 接 
check (white, white[0]) if blue.size == # 和 白色 是 否 互 相连 接 
Count += 1 if white.size == # 如 果 两 种 颜色 都 符 

# 合 条 件 则 计 入 结果 


end 


} 


puts count 
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又 是 一 维 数组 吗 。 使 用 过 的 方 属 就 有 | 除 掉 ， 这 一 点 托 有 意思 此 


待 搜索 的 数组 元 素 不 断 变 少 ， 所 以 可 以 有效 减 少 搜索 量 。 


用 这 个 方法 可 以 在 不 到 2 秒 的 时 间 内 得 出 结果 。 


接 下 来 实现 解法 @。 为 了 使 处 理 比较 简单 ， 只 需要 记录 已 经 涂 色 部 


分 的 外 边界 就 可 以 了 。 然 后 ， 从 左上 角 开 始 ， 只 对 连接 的 方 格 涂 色 ， 等 
10 个 方 格 涂 色 完毕 后 ， 涂 色 的 方 格 明显 是 相互 连接 的 ， 因 此 只 需要 验证 
剩 下 的 10 个 方 格 是 否 相 互 连 接 即 可 。 


为 表示 方 格 状态 ， 设 蓝 色 方 格 为 1， 没有 涂 色 的 方 格 为 0， 边 界 为 9。 


10 个 方 格 涂 色 完毕 后 ， 检 查 剩 下 10 个 方 格 时 ， 把 已 检查 的 白色 方 格 设置 


为 2 


( 当 2 的 数目 达到 10 个 的 时 候 表示 分 割 成 功 ) (代码 清单 60.02 )。 


代码 清单 50.02 (q60_02.rb) 


# 


# 


} 


# 


W, 
@width, @height = W+2,H+2 


NONE, BLUE WHITE, WALE = 0 1, 2. 9 
map = Array.new(@width * @height, 0) 


@width.times{|i| 


@height .times{|i| 


map[(i + 1) * @width - 1] = WALL 
} 
人 (0 开始 
mapl@width + 1] = BLUE 


@maps = {map => false} 


CE LIL (CE Coley 


长 方形 大 小 
H= 5, 4 


设置 外 边界 


mapl[li] = WALL 
mapli + @width * (@height - 1)] = WALL 


mapl[li * @width] = WALL 


Ey 


采用 广度 优先 搜索 递归 地 为 方 格 涂 色 
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# 


# 


} 


# 


# 


end 


EW /2 


new maps = 
@maps.each{|k, v| 


@maps 


i 


count = 0 


returnnif deptn == 
new maps = {} 
W.times{ |w| 
H.times{ |h| 
BesEs (ee 
@maps.each{ |k, vl| 
check =false 
if "klpos) == "0 then 
[1, -1, @width, -@width] .each{ 
eneeke ue uel ds 
} 
end 
if check then 
k.clone 
mlpesl® = Color 
new maps [m] = 
end 


} 


W + 工 二 * @width 


lal 
= 


m = 


false 


} 
} 
@maps = new maps 


fant colo 


把 一 半 方 格 涂 成 蓝 色 


BLUE) 


全 证 


已 小 


把 白 空 着 的 方 格 上 


{} 


pos = k.index (NONE) 
m= kelone 

ml[lpos] = WHITE 
new maps [m] = false 


= new maps 


色 
or I 2 和 于 


深 卜 有 


WHITE) 


统计 所 有 上 色 完 毕 的 方 格 


@maps .each{ |m| 
Count += Jif 


} 


puts count 


! (m.include? (NONE)) 
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这 个 解法 能 在 3 秒 左右 求 得 正确 答案 “245"。 这 次 我 们 是 用 广度 优 
先 搜索 的 方法 实现 的 ， 如 果 用 深度 优先 搜索 或 者 整数 的 比特 列 的 方法 ， 
还 可 以 进一步 优化 性 能 。 


还 可 以 用 递归 来 实现 啊 ? 


广度 优先 搜索 


后 

tp 循环 是 更 常用 的 方法 ， 但 递归 的 方法 也 要 好 好 记 住 哦 。 
全 老师 ， atot | 

(Ny) 

PR 

Ne 个 解法 就 留 作 课 后 作业 吧 (实现 起 来 可 不 简单 哦 > 
OO 上 CO 


刚才 是 用 递归 来 实现 广度 优先 搜索 的 ， 一 般 来 说 ， 用 “队列 ”和 
“循环 ”更 多 一 些 。 队 列 就 是 Queue, 或 者 说 是 “先进 先 出 ”( FIFO, First 
In First Out )， 也 就 是 “从 队列 的 开头 取 值 ， 向 队列 的 末尾 加 值 ” 这 样 
的 方法 。 

进行 广度 优先 搜索 的 时 候 , 如果 队 列 中 存在 数据 , 则 用 循环 对 队列 
执行 反复 处 理 。 举 个 例子 ， 搜 索 如 [ 国 加 所 示 的 树 结构 时 ， 一 开始 只 有 
1 在 队列 中 , 取出 1 后 才能 把 2 和 3 加 入 到 队列 中 。 接 着 取出 2 并 加 入 
4 和 5， 然 后 取出 3 并 加 入 6 和 7。 队 列 的 变化 如 上 辆 加 所 示 。 


搜索 树 结 构 时 的 示例 队列 的 变化 


245 种 
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© Column 让 


学 习 新 知识 的 时 候 ， 读 书 是 一 种 比较 易于 开始 的 办 法 。 此 外 ， 还 
可 以 通过 到 学 校 里 听课 或 者 参加 研讨 会 来 学 习 。 现 在 ， 我 们 还 可 以 利 
用 互联 网 搜索 资料 来 学 习 。 

不 过 , 到 学 校 听课 或 者 参加 研讨 会 都 太 讲究 时 机 ,不 容易 实现 。 而 
通过 互联 网 搜索 这 种 办 法 虽然 可 以 获取 大 量 信 息 ， 但 又 难以 系统 化 学 
习 。 如 果 追 求 信息 的 时 效 性 ， 那 么 利用 互联 网 是 不 错 的 选择 。 但 要 考 
卡 到 可 靠 性 ， 书 店 里 的 书 则 是 更 好 的 选择 。 

到 书店 里 可 以 找到 按 类 别 、 作 者 划分 整理 的 大 量 图 书 。 这 时 ， 如 
何 选择 合适 的 书 就 变 成 了 一 个 问题 。 到 亚马逊 上 看 书评 也 许 是 一 种 办 
法 ， 不 过 从 海量 的 图 书 中 找到 适合 自己 的 书 仍 是 难 上 加 难 。 

我 在 学 习 新 技术 的 时 候 ， 一 定 会 至 少 读 三 本 书 ， 并 且 不 会 选择 入 
门 书 ， 而 是 直接 读 面向 中 级 读者 的 书 。 简 单 地 说 就 是 “全 面 但 不 太 深 
入 ”的 书 。 如 果 看 着 目录 ， 粗 略 翻 一 翻 内 容 就 能 在 脑海 中 整体 把 握 这 
本 书 ， 那 对 我 而 言 就 是 理想 的 书 。 

初 读 时 可 能 会 觉得 有 些 难 ， 不 过 我 会 坚持 通读 一 遍 。 如 果 这 时 候 
不 懂 的 地 方 占 多 数 ， 那 么 就 要 去 读 入 门 书 了 。 因 为 已 经 对 相关 内 容 有 
了 个 大 体 的 印象 ， 所 以 只 要 读 几 页 应 该 就 能 分 辨 出 某 本 书 讲解 得 浅显 
还 是 复杂 。 反 过 来 ， 如 果 读 完 最 初 买 的 书 觉 得 都 能 理解 ， 那 么 就 要 选 
择 更 难 的 书 了 。 换 名 话说 就 是 参考 文献 或 者 “精通 DO” 之 类 的 书 。 

读 完 这 两 本 之 后 ， 最 后 要 选 一 本 讲解 自己 感 兴 趣 的 细节 的 书 作为 
补充 。 这 三 本 书 肯 定 彼此 内 容 有 重合 ,但 这 并 不 是 做 无 用 功 ， 因 为 通 
过 对 比 阅读 来 理解 是 很 有 效 的 。 不 同 作者 的 不 同 理解 都 会 见 诸 笔 端 。 下 
次 如 果 买 书 学 习 ， 可 以 参考 这 种 做 法 。 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊重 版 权 


61 :不 交叉 ,一 笔画 下 去 


GOHHHHH111111111111111111GIGIGGGGGGGGGGGGGGGGIGGGGGGGIGGGGGGGGGGGGGGGGGGGGGGGGGGM 
假设 这 里 有 横向 的 m 个 点 和 纵向 的 n 个 点 ， 而 我 们 要 一 笔 连接 所 有 
点 。 要 求 只 能 用 直线 连接 横向 或 者 纵向 相 邻 的 点 ， 并 且 不 允许 出 现 交 叉 。 
不 能 斜 着 连接 ， 也 不 能 用 非 直线 连接 ( 起 点 和 终点 重合 也 算是 交叉 )。 
当 m = 4, = 3 时 ， 国 轿 中 的 OK 示例 是 符合 要 求 的 连 线 方法 ， 
而 NG 示例 里 出 现 了 交叉 线条 ， 所 以 不 符合 要 求 。 


csi 
| [1 


OK 示例 和 NG 示例 


OK 
求 当 m = 5, n = 4 时 ,共有 多 少 种 画 法 能 一 笔 连接 所 有 点 ( 下 称 “ 一 笔画 ”) 


( 如 果 只 是 交换 起 点 和 终点 ， 而 连 线 的 位 置 和 形状 都 一 致 ， 那 么 只 算 作 1 种 画 法 ， 
但 如 果 只 是 上 下 或 者 左右 翻转 后 形状 相同 而 位 置 不 同 ， 则 算 作 不 同 的 画 法 ) ? 


目前 为 止 , 我 们 已 经 渴 到 过 不 少 缩小 搜索 范围 同方 法 了 。 本 题 也 可 以 
通过 排除 方向 山 办 法 来 缩小 范围 。 
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从 起 点 开始 ， 按 顺序 遍历 这 些 点 ， 反 复 地 上 下 左右 搜索 ， 直 到 得 到 
一 笔画 的 路 径 。 当 没有 可 选 的 点 时 ， 就 终止 搜索 。 此 时 ， 如 果 没 有 剩余 
的 点 ， 则 视 作 能 一 笔画 下 去 ， 所 以 要 一 直 连 接 下 去 ， 直 到 无 法 继续 连接 


才 可 以 求 得 结果 。 下 面 我 们 用 深度 优先 搜索 来 实现 这 个 思路 。 


因为 对 于 同样 的 笔画 路 径 ， 如 果 从 反方 向 开始 遍历 ， 得 到 的 结果 只 
会 统计 为 1 种 ， 所 以 遍历 所 有 路 径 后 把 得 到 的 数 减 半 就 是 最 终 答 案 。 用 
Ruby 实现 时 ， 代 码 如 代码 清单 61.01 所 示 。 
代码 清单 61.01 (gq61_01.rb) 

# 设置 点 的 个 数 
W, H= 5, 4 
# 移动 方向 
Q@meve = 0 0 
@map = Array.new(W * H, false) 
# 递归 遍历 
def search(x, y, depth) 
Ev oO EE eo | wesslll Yeo Bes | SEs 
We WN 

returno le denoten ==9W < 

crt = 0 

@maplx Ty * Wl = true 


@move .each{ |m| # 上 下 左右 移动 
cnt r= searcn(x Pmlol My mlLl depth 1) 
b 
@map[lx + y * W] = false 
TeEUEnN Cnt 
end 


Sounte 0 
(W * H) .times{|i| 
CE 


} 
# 起 点 和 终点 互 换 位 置 得 到 的 路 径 和 原先 一 致 ， 所 以 最 终 路 径 数 减 半 
putspeountn,/ 2 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 尊 


EE 


且 


县 


版 权 


不 过 ， 如 果 点 的 个 数 增加 ， 处 理 时 间 会 飙升 。 有 6x 5 个 点 时 就 需 
要 相当 长 的 处 理 时 间 了 。 下 面 尝试 优化 一 下 吧 ! 


其 中 一 种 优化 办 法 是 前 面 的 问题 中 采用 过 的 “相连 "。 如 果 画 到 一 
半 时 ， 剩 下 的 点 不 相连 ， 那 么 一 笔画 无 论 如 何 都 无 法 完成 。 所 以 ， 我 们 
可 以 采用 在 画 到 一 半 的 时 候 检查 剩 下 的 点 是 和 否 相连 的 方法 来 优化 ( 代 
码 清单 61.02 )。 


代码 清单 61.02 ( q61 02.rb ) 


# 设置 点 的 个 数 

W, H= 5, 4 

# 移动 方向 

@meven or 0 

@log = 全 

# 递归 遍历 

def search(x, y, depth) 
et 0 1 0||<= 天 | 六 = 人 Ti 川 吾 二 
elurrn oO te ologqhasn key (x Ry WW 
Feturn lt dp WwW 
# 遍历 到 一 半 时 检查 剩 下 的 点 是 否 相连 


if depth == W* H/ 2 then 
nemarn = (0 (WN toa Qolog eys 
check (remain, remain{[0]) 
return 0 if remain.size > 0 
end 
cane 0 
@log[x + y* Wl = depth 
@move.each{ |m| # 上 下 左右 移动 
ent r=" searcm(R mo ml pe 
} 
@log .delete (Zr yw 
return cnt 
end 
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def check\(remain, del) 
remain.delete (del) 
Teft ragqnt ue down = dl de de wd Ww 
# 如 果 前 方 是 同色 的 ， 则 继续 搜索 
check (remain, left) if (del $%$ W > 0) && remain.include? 
(left) 


check(remain, right) if (del %$ W != W - 1) && remain.include? 
(right) 

check (remain, up) if (del / W > 0) && remain.include? (up) 

check (remain, down) if (ael /W != H - 1) && remain.include? 
(down) 
end 


Sountee 0 
(W * H) .times{|i| 
ET 


} 


# 起 点 和 终点 互 换 位 置 得 到 的 路 径 和 原先 一 致 ， 所 以 最 终 路 径 数 减 
puts eounen/ > 


Ts 


当前 的 数据 量 下 ， 处 理 时 间 的 变化 不 大 。 如 果 数 据 量 变 大 ， 处 理 时 
间 的 变化 会 更 明显 (有 6x5 个 点 时 ， 处 理 时 间 会 缩短 到 一 半 )。 


为 什么 这 种 方法 可 以 缩短 时 间 呢 ? 


因为 剩余 的 点 不 断 减 少 ， 所 以 搜索 范围 也 会 缩小 。 


这 里 还 可 以 用 位 运算 的 方法 来 优化 。 不 过 ，Ruby 的 位 运算 速度 并 
不 快 ， 而 如 果 换 用 C 语言 实现 ， 处 理 时 间 会 大 幅度 缩短 。 实 现 题目 中 的 
示例 时 ， 代 码 如 代码 清单 61.03 所 示 。 


代码 清单 61.03 (q61 03.c) 


#include <stdio.h> 


#define W 5 
#define H 4 
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.ntemap = 


i searen( me ne vy me deoeh)! 


jn cent = 0 
EEC 
Ena 0 ecurno 

f(t == NU 


mape= << (x Ty W) 

cnt += search(x + 1, y, depth + 1); 
ento t= "Searem( dopeh rr 1 
enteeT=> searen(e 7 ol dp ny, 
emne r= earehl(x yy 1 depeh er 1. 
站 

ECUT nts 


} 


Tt madnl(veora) | 
Lm Count = 0 
TE 
EGF (=07 ow 
count += search(i % W, i / W, 1); 
} 
jie 人 二 ES 和 有 
Bet 0 


曲 确 ， 用 简单 曲 方法 也 能 在 0.01 稍 内 月 决 5x4 的 数据 量 ， 即 便 是 
6x5 曲 数据 量 也 能 在 1.5 秒 左右 完成 呢 。 


位 运算 的 效果 的 确 很 明显 ， 不 过 还 可 以 考虑 使 用 像 C 这 样 能 实现 快 
速 处 理 曲 编程 语言 哦 。 


请 试 着 用 CC 语言 实现 一 下 第 2 种 优化 方法 吧 。 


= 1006 种 
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要 搞 清 楚 “ 为 什么 ”会 出 现 处 理 速 度 的 差别 


在 本 题 中 , 因为 C 语言 的 位 运算 处 理 速 度 远 要 高 于 Ruby, 所 以 最 
后 用 C 语言 实现 了 位 运算 的 优化 方法 。 像 这 样 不 同 语言 之 间 处 理 速 度 
相差 巨大 的 事例 并 不 少见 。 重 要 的 是 ， 我 们 要 认识 到 为 什么 会 出 现 这 
种 处 理 速度 上 的 差别 。 

我 首先 想到 的 是 “编译 型 语言 ”和 “解释 型 语言 ”的 差别 。 “编译 
型 语言 ”会 在 执行 前 把 代码 编译 为 计算 机 可 以 直接 处 理 的 二 进 制 码 ,所 
以 可 以 提高 执行 速度 。 不 过 ， 很 明显 编译 是 要 花 时 间 的 。 而 有 全， 同样 
是 编译 型 语言 ， 像 Pascal 这 样 可 以 一 次 编译 的 语言 ， 编 译 时 间 会 比 C 
语言 短 很 多 。 

另外 ,根据 处 理 的 数据 类 型 的 不 同 , 像 C 语言 和 Pascal 这 样 有 “ 静 
态 类 型 ”的 编程 语言 ， 速 度 会 快 一 些 ; 而 像 Ruby 这 样 有 “动态 类 型 ” 
的 语言 ， 数 据 的 类 型 在 执行 时 才能 确定 。 虽 然 这 样 比较 灵活 ， 但 也 会 
带 来 处 理 速 度 上 的 损失 。 使 用 Ruby 的 时 候 ， 可 以 不 考虑 数据 的 边界 ， 
但 那样 就 会 有 处 理 速度 上 的 短 板 。 

能 有 一 些 直觉 上 的 判断 很 可 贵 , 但 理解 背景 和 原因 也 是 很 重要 的 。 
大 多 数 编程 语言 的 源 代码 都 是 公开 的 ， 阅 读 语 言 的 源 代码 也 可 以 帮助 
我 们 理解 这 些 背 景 和 原因 。 
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: I HE 
62 : 日 历 的 最 大 和 珑 形 


VOVHHHHHHHV1VHHIIVVVGVGGVVVVGGVGGGGVVGGGVGGGGGGGGGGGGGGGGVGGGGVGGGGGGGGGGGGMMM 


请 试 着 找 出 单个 月 份 的 日 历 上 ,“ 只 包含 工作 日 ”的 最 大 的 矩形 。 
这 里 规定 这 个 矩形 不 能 包含 周 六 日 ， 不 能 包含 假期 ， 也 不 能 跨 月 份 。 

举 个 例子 ，2014 年 4 月 ~2014 年 6 月 的 相应 矩形 如 国 加 所 示 ， 这 
些 和 矩形 的 总 面积 为 51 (4 月 = 16 天 , 5 月 = 20 天, 6 月 = 15 天)。 


2014 年 4 月 2 月 2014 二 6 月 


| 到 | 碟 
2 3 14 5|6 17 

圭 9 忆 1211304 
15016117118|19|20121 


22q23124125126127128 


4x4=16 天 Pr 5x3=15 天 


2014 年 4 月 ~ 2014 年 6 月 的 情况 


求 2006 年 -2015 年 这 10 年 中 , 由 各 个 月 的 “工作 日 ”构成 的 最 大 矩形 , 并 
求 所 有 120 个 月 的 矩形 面积 之 和 。 


※ 假日 数据 可 以 从 以 下 网 站 中 下 载 : 
https:Wgithub.coryleungwensen/70-math-duizs-for-programmers 
http:/www.ituring.com.cn/book/1814 ( 点 击 “ 随 书 下 载 ”) 

假日 数据 是 /zh_CN 目录 下 的 q62-holiday.txt 文件 ， 公 休 日 因 调 休 变 为 工作 日 的 数据 是 
同 目录 下 的 q62-extra-workday.txt 文件 。 


横向 搜索 工作 日 倒是 雹 单 ， 只 是 确认 纵向 的 长 度 有 点 儿 麻 烦 。 


搜索 的 同时 确认 纵向 延伸 的 长 度 也 不 是 不 行 ， 但 如 果 能 事先 计算 出 
纵向 的 长 度 ， 效 率 会 更 高 呢 。 


求 景 大 距 形 的 方法 有 很 多 ， 不 过 要 考虑 到 数据 量 问 题 哦 。 
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可 以 先 准 备 一 个 用 来 求 每 个 月 对 应 的 最 大 和 矩形 的 函数 ， 然 后 对 2006 
年 -2015 年 的 所 有 月 份 执 行 该 函数 ， 最 后 统计 和 矩形 面积 之 和 。 这 样 一 
来 ,关键 点 就 在 于 “如 何 求 最 大 矩形 ”了 。 

求 最 大 矩形 的 一 种 简单 的 办 法 就 是 ， 夯 出 各 种 大 小 的 矩形 ， 并 判断 其 
中 有 没有 工作 日 以 外 的 日 子 。 这 样 的 逻辑 可 以 像 代码 清单 62.01 这 样 实现 。 


代码 清单 62.01 (q62_01.rb ) 


Eeeeaaaees 
WEEKS, DAYS = 6, 7 


# 读 入 假日 数据 文件 

@holiday = IO.readlines ("gq62.txt") .map{|h| 
I ue (na Eo 

} 


# 读 入 调 休 工 作 日 数据 文件 
@exEraworkaday uo eacnines( a extra workoam te 
map{ |h| 

ER 


# 计算 符合 条 件 的 最 大 矩形 的 面积 


defmax FecEanognhetcaay 


rect = 0 
NEEKS .times{ |sr| # 起 始 行 
DAYS.times{|sc| # 起 始 列 
sr.upto(WEEKS){|er|  # 终点 行 


sc.upto(DAYS) {|ec| # 终点 列 
is_weekday = true # 起 始点 和 终点 之 间 有 没有 工作 日 以 外 的 日 了 
sr.upto(ler) {|r| 
Seuptol(ee) (el 
ISPWeekday = falseiflrcalle EDAYSIREE= 
} 
} 
EisMweekday enen 
Tec = eet (er Sr Ds er ma 
end 
} 
} 
} 
} 
eet 
end 


# 指定 年 份 和 月 份 ， 获 取 最 大 矩形 面积 
QefEcsnce ny 
cal = Array.new(WEEKS * DAYS 0) 
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first = wday = Date.new(y，m，1) .wday # 获取 该 月 1 日 对 应 的 星 其 
Date.new(ly, m, -1).day.times{|d| # 循环 处 理 直 到 该 月 结束 
if (1 <= wday && wday <= 5 && !@holiday.include?([y, m, 
d+ 1])) || @extra workday.include?([y, m, d + 1]) 
Solle lirest rol = 
engl 
wday = (wday + 1) % DAYS 
} 
max rectangle (cal) 
er 
yaa 20 .06H 0 ce TT 
puts yyyymm.map{|y ,m| calc(y, m)}.inject(:+) 


这 种 方法 是 杷 日 历 表示 为 数组 ， 杷 数组 中 网 工作 日 桩 记 为 1， 非 工作 
日 标记 为 0， 依 况 求 好 大 距 形 的 方法 。 也 就 是 说 ， 从 数组 内 指定 一 个 


距 形 ， 通 过 判 岂 距 形 内 部 存 不 存在 0 来 判断 其 是 否 号 合 条 件 。 


对 于 本 题 , 从 处 理 时 间 上 来 说 , 上述 逻辑 算得 上 令 人 满意 。 如 果 要 
优化 一 下 ,可 以 尝试 找 出 纵向 上 工作 日 的 延续 行 数 。 举 个 例子 , 2014 年 
7 月 的 日 历 如 加 所 示 , 对 应 的 工作 日 延续 行 数 可 以 表示 为 国耻 这 样 。 


1 2 3 4 本 0 0 1 1 1 1 0 
加 7 8 9 | 10 | 11 大 加 0 | 2 2 2 2 0 
Mel 14 | 15 | 16 | 17 | 18 和 加 0 2 3 3 3 3 0 
2 21 | 22 | 23 | 24 | 25 26 0 3 4 4 4 4 0 
wl 28 | 29 | 30 | 31 0 4 5 5 5 0 0 


2014 年 7 月 的 日 历 纵向 计算 工作 日 延续 的 行 数 


如 果 用 上 述 表 示 方 法 ， 只 需要 知道 各 行内 的 值 以 及 矩形 横向 延续 的 
列 数 ， 就 可 以 简单 求 出 最 大 矩形 。 这 个 逻辑 可 以 用 Ruby 实现 ， 代 码 如 
代码 清单 62.02 所 示 。 


代码 清单 62.02 ( q62_ 02.rb ) 


eduaeemgaeen 
WEEKS, DAYS = 6, 7 
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# 读 入 假日 数据 文件 
@holiday = IO.readlines( "q62.txt").map{|h| 
mo 0 oneal ee 


# 读 入 调 休 工 作 日 数据 文件 
@extra workday = IO.readlines( "q62-extra-workday.txt" ) . 
map{ | 

me Eid el 0 eval ee tt) 


} 
# 计算 符合 条 件 的 最 大 矩形 的 面积 


deft maxirectangle (ea 
s=0 
WEEKS .times{ |row| 
DAYS .times{ |left | 
(left.. (DAYS = 1)) .each{ |right 
# 计算 高 度 
h = (left..right) .map{|w| cal[w + row * DAYS]} 
# 通过 高 度 的 最 小 值 和 横向 长 度 计 算 面 积 
证 三 二 RE 本 mm 
} 
} 


} 


S 
end 


# 指定 年 份 和 月 份 ， 获 取 最 大 矩形 面积 
defeoonles( mn 
cal = Array.new (WEEKS * DAYS, 0) 
first = wday = Date.new(y，m，1) .wday # 获取 该 月 1 日 对 应 的 星期 


Date.new(y, m, -1).day.times{|d| # 循环 处 理 直 到 该 月 结束 
Tfq(= wday &e wday <=50e lonoliday neludes (ly om 
d+ 1])) || @extra workday.include?([y, m, d + 1]) 
# 纵向 工作 日 延续 几 行 ? 
IE SEE se DA 
end 


wday = (wday + 1) % DAYS 


} 
max rectangle (cal) 
end 


yyyymm = [*2006..2015] .product ([*1..12]) 
puts yyyymm.map{|y ,m| calc(ly, m)}.inject(:+) 


> 
SS 就 日 历 而 言 ， 距 形 的 面积 不 会 变 得 太太 , 所 以 我 们 还 可 以 在 兼顾 性 能 
~ 的 同时 ， ns 法 。 
a 
:< 1875 


262 | 第 4 章 高 级 篇 


图 灵 社 区 会 员 feiifan(wangjungen@163.com) 专 享 


尊重 版 权 


py 
= 有 = 


ppIIIIIIIIIIII II I II II II I I I II I I III I III I I II I II II I IIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


涂抹 横向 和 纵向 排列 的 nxn 个 方 格 中 的 几 个 ， 制 作成 迷宫 。 这 里 
规定 被 涂抹 的 方 格 是 墙壁 ， 没 有 被 涂抹 的 就 是 道路 。 

两 人 分 别 从 A 点 和 B 点 同时 出 发 ， 每 次 前 进 1 个 方 格 ， 且 按照 
“右手 法 则 ”前 进 。 所 谓 右手 法 则 ， 就 是 靠 着 右边 墙壁 前 进 ， 不 一 定 要 
按 最 短路 径 前 进 ， 但 最 终 要 回 到 入 口 或 者 到 达 出 口 (其 中 一 人 从 A 点 出 
a 点 前 进 ， = 人 从 B 点 出 发 向 A 点 前 进 。A 点 和 B 点 的 位 置 固 

定 ， 假设 就 是 左上 角 和 右 下 角 )。 

那么 ， 两 人 在 途中 相遇 的 情况 一 共有 多 少 种 呢 ? 同时 到 达 同 一 点 算 
相遇 ， 其 中 一 人 到 达 终 点 ， 另 一 人 同时 回 到 这 个 位 置 也 算 。 

举 个 例子 ， 当 nn = 4 时 ， 呈 罗 中 心 的 情况 下 两 人 可 以 相遇 ， 凶 的 情 
况 下 两 人 就 不 能 相遇 ( 四 的 情况 下 ， 如 果 和 A 像 “ | + 一 全 上 一” 
这 样 移动 , 而 B 像 “一 11 一 一 1 + 一 一 个 ”这样 移动 ,在 第 5 次 移动 
时 两 人 就 会 相遇 )。 


中 © 


EED EEC 
Qe 


当 n = 4 时 的 示例 
求 当 n = 5 时 ， 两 人 能 在 途中 相遇 的 迷宫 模式 有 多 少 种 ? 
(EE) 


HIDR 


如 果 能 预先 判断 是 不 是 有 效 的 迷 富 ， 就 能 缩小 搜索 范围 了 哦 。 
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本 题 的 关键 在 于 “怎样 实现 用 右手 法 则 进行 搜索 "。 首 先 


j 0 表示 


道路 , 用 1 表示 墙壁 ， 通 过 设置 0 和 1 表示 迷宫 。 那 么 问题 就 变 成 了 求 


有 多 少 种 设置 方法 能 使 按照 右手 法 则 在 迷宫 中 前 进 的 两 人 相遇 。 


为 实现 右手 法 则 搜索 ， 要 设置 一 个 按 右 、 上 、 左 、 下 排列 ， 表 示 移 
动 方向 的 数组 ， 并 且 改 变 这 个 数组 的 索引 。 壁 如 目前 的 移动 方向 是 


“上 ”， 那 么 接 下 来 就 要 按 


照 右 、 上 、 左 的 顺序 来 依 人 

次 搜索 ， 如 果 目 前 的 移动 

方向 是 “ 左 ”， 那 么 接 下 来 全 全 全 
就 要 按照 上 、 左 、 下 的 顺 

序 来 搜索 上 本 


如 果 用 Ruby 实现 ， 代 码 如 代码 清单 63.01 所 示 。 


代码 清单 63.01 ( q63_01.rpb ) 


去 
# 右手 法 则 的 移动 方向 ( 按 右 、 上 、 左 、 下 的 顺序 ) 
人 


# maze: 墙壁 设置 
# pl，d1: 第 1 个 人 走 过 的 路 径 和 移动 方 应 
# p2，d2: 第 2 个 人 走 过 的 路 径 和 移动 方 应 
defySsearetn(nazer i or p22 
if pl.size == p2.size then # 两 人 同时 移动 的 情况 
# 两 人 相遇 则 成 功 


et ue Ec== 2 0 
# 第 1 个 人 到 达 右 下 方 则 失败 
returne tealse staal == NN 本 
# 第 2 个 人 到 达 左 上 方 则 失败 
reburne talse Epol lo = 0 
end 


# 两 人 从 同一 个 方向 移动 过 来 ， 则 路 径 形成 环 ， 失 败 
Eeturne alse eol eounel(e nD 


BPEe = pl 
@dx.size.times{ |i| # 搜索 右手 法 则 指向 的 方向 
SE= (Gu 0 
Px = prelol + @dx[ldal [lol 
py = pze + @dx[dal [lL] 
# 判断 前 方 是 否 是 墙壁 
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if (px >= 0) && (px < N) && (py >= 0) && (py < N) S&& 


EE 


县 


版 权 


(maze [lpx FN* py) E=O)EneT 
return searen(mazZe P20929P0 ID ya a) 


break 
end 
} 
false 
end 
= oo # A: 左上 角 (X 坐标 ,Y 坐标 、 向 前 的 移动 方向 ) 
b= [IN- 1,N- 1,，-1]] # B: 右 下 角 (X 坐标,Y 坐标 、 向 前 的 移动 方向 ) 
cnt = 0 


[0, 1] .repeated permutation(N * N - 2){|mazel| 

# 两 人 的 起 始 位 置 一 定 作为 路 径 的 一 部 分 搜索 

# 入 向 下 移动 (edx[3] )、B 向 上 移动 ( @dx [1] ) 

emeert= searehllonr mazee aol 
} 


puts Cnt 


也 就 是 说 , 左上 沪 和 右 下 肖 一 定 不 会 放置 墙壁 , 科 下 曲 N2 一 2 个 方 赂 
中 分 别 设置 了 30 和 和 1， 对 吧 ? 为 什么 景 初 曲 “前 进 广 向 ”要 设置 成 


当 n = 4 时， 上 述 处 理 几 乎 可 以 瞬间 完成 ， 但 本 题 里 = 5， 所 以 


就 要 稍微 多 花费 一 些 时 间 了 。 这 里 可 以 通过 在 搜索 前 判断 迷宫 是 否 有 效 
(能 否 到 达 目 标 ) 的 方式 优化 。 如 果 搜 索 前 就 进行 判断 ， 那 么 只 需要 搜 
索 235 = 33554432 种 情况 中 的 1225194 种 即 可 ， 只 占 全 部 情况 的 约 
3.6%。 不过， 判断 迷宫 是 否 有 效 也 需要 一 定时 间 。 

为 简化 处 理 ， 可 以 把 迷宫 表示 成 nxn 位 的 比特 列 (和 上 述 一 样 ， 
道路 是 0， 墙壁 是 1， 通过 设置 0 和 1 来 表示 迷宫 )。 这 样 设置 后 ， 上 下 
左右 的 移动 就 可 以 用 位 运算 来 实现 了 (代码 清单 63.02 )。 


| 代码 清单 63.02 (q63 02.rb) | 


其 三 与 
MASRK = (0 << m0 

# 利用 位 运算 计算 已 经 移动 的 位 

@move = [lambda{|m| (mm >> 1) & 0b0111101111011110111101111}, 
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lambda{|m| (m << N) & MASK}, 
Tamnpaadlml ee eo 
lambda{ |m| m >> N}] 


# 判断 迷宫 是 否 有 效 
QetEenmaclemaze) 
man = (1 << (N* N - 1)) & (MASK - maze) # 从 左上 角 出 发 
woslee tue de 
next man = man 
@move .each{ |m| next man |= m.call (man)} # 上 下 左右 移动 


next man &= (MASK - maze) # 可 以 移动 到 墙壁 以 外 的 方 格 
return true if next man & 1 == 1 # 能 到 达 右 下 角 就 有 效 
break if man == Next man 
man = next man 
eal 
Fase 
era 


# maze: 墙壁 设置 
# pl1，d1: 第 1 个 人 走 过 的 路 径 和 移动 方 
# p2，d2: 第 2 个 人 走 过 的 路 径 和 移动 方 
def search(maze, ool.d1. p20 dd2 turn) 
SE Etoen ee 
return true if pl == p2 # 两 人 相遇 
# 其 中 一 人 到 达 终 点 
se Cu E20 
(orel 
@move.size.times{|i| # 搜索 右手 法 则 指向 的 方向 
d= (dl -1 + i) % @move.size 
TE amoveldl eal(o ee MA mare hen 
returm search(maze, Pp2,d2 Qomoveldl.call(p1l). dq lturn) 
end 


ot 


oh 


enee 0 
(1 << N * N) .times{|maze| 
if enablel(maze) 七 ie 


manyar nan 1 << (NN 0 
cnt 0 search(naze ma 本 SS marndbr 1 tue) 
end 
pubs enEt 
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这 个 方法 相当 有 超 ， 但 是 不 哆 直观 啊 。 


位 提 码 的 值 以 N 个 数 为 单位 分 割 开 ， 就 可 以 以 行为 单位 来 理解 
哦 。 这 里 如 果 分 制 为 5 位 就 会 更 容易 理解 由。 


判断 迷 定 是否 有 效 , 以 及 对 上 下 左右 移动 拘 处 理 竺 在 其 他 场景 下 也 活 
用 ， 大 家 景 好 记 住 这 些 方 法 。 


j 这 个 方法 的 确 可 以 缩短 处 理 时 间 ， 但 用 Ruby 还 是 太 慢 。 同 样 的 
处 理 如 果 用 C 语言 来 实现 ， 就 可 以 像 代码 清单 63.03 这 样 来 实现 ， 大 概 
只 需 2 秒 就 可 以 完成 ( 因为 处 理 过 程 和 上 述 代码 一 致 ， 所 以 这 里 去 掉 了 
注释 )。 


| 代码 清单 63 .03 ( q63 03.c) 


elUoseSESTCRDE 


#define N 5 
#define MASK (1 << (N * N)) - 1 


unsigned int right (unsigned int maze){ 
metunmmna(mazes > I Oona 
} 


unsigned int up(unsigned int maze){ 
return (maze << N) & MASK; 
} 


unsigned int left (unsigned int maze){ 
retusn (mazes < <0 oO oo oo 
} 


unsigned int down(unsigned int maze){ 
return (maze >> N); 


} 


unsigned int (*move[]) (unsigned int) = {right, up, left, down}; 


int enable(int maze){ 


unsigned int man = (1 << (N*N- 1)) & (MASK - maze); 
while (1){ 
unsigried int next man = Many 
nt = 
For” (a = OF eA | 
next man |= (*move[i]) (man); 


} 
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mexmanc= (MASK LE maze) 
EPE 1 return 
if (man == next man) break; 

man = next man; 


} 


return 0; 


} 


me Seanrelhl(nae mazer ne el ne ne le turn) { 


oa a cS OF 
if (turn == 1){ 

w= D2 retwn, 

1 (Lt = | (= 0 
EGr ll = 0 Te | 

unt = 4 

mt nextpe (noveldl (Maye 


we (nexnen (VAs naze) 0) 
Peturn esearchl(marver D2 do nextep od Eurnm) 
} 


return 0; 


} 


int main(void) { 


nt OuUnt = 0% 
wr 0 
EOI (0 


if (enable(i) > 0){ 
ne (eeeveanmil;, LT a2 (Wn = 1 3 0 
SOUnNnt++ 
} 
} 


ransubamen rel ore vialed 
PEtuUFEN OF 


Ruby 这 样 的 脚本 语言 即便 是 仅仅 执行 225 遍 循环 
的 时 间 。 在 选择 编程 ; 语言 时 ， 不 仅 轩 考虑 思路 ， 还 
鲜 度 出 发 去 进行 选择 。 


660148 种 
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ED HEED 
6 小 麻烦 的 投 接 球 


EUAAAAAUAAUAUAAAAAUAAAAAAAAAAAAAUAAAAAAAAAAAAAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAT 


棒球 运动 有 一 项 基本 的 投 接 球 练习 。 在 投 接 球 中 ， 重 要 的 是 投 出 让 
对 方 接 起 来 比较 容易 的 球 。 这 里 假设 有 12 个 学 生 ， 以 6 人 为 一 组 分 为 
两 组 相对 练习 。 

假设 如 辆 加 所 示 ， 为 每 个 学 生 分 配 1~12 的 编号 ， 大 家 反复 进行 投 
接 球 练习 ， 使 得 1 号 学 生 手 上 的 球 最 终 会 传 给 12 号 。 但 同时 ， 有 以 下 
几 个 条 件 。 


唱和 gd 和 GO © 


OD ©® © O00 © 
投 接 球 示 例 


条 件 1: 1 个 学 生 同 时 只 能 拿 1 个 球 

条 件 2: 每 次 只 能 由 1 个 学 生 投 球 ， 并 且 一 定 会 有 接 球 人 

条 件 3: 最 开始 只 有 1~ 11 号 学 生 手 上 有 球 

条 件 4: 每 个 学 生 投球 的 目标 只 能 是 三 者 ( 正 对 面 及 其 左右 的 学 生 ) 之 一 

条 件 5: 投 接 球 结束 后 ， 除 了 1 号 和 12 号 ， 其 他 学 生 手 上 一 定 要 拿 

着 最 开始 的 球 

最 开始 只 有 12 号 手 上 没有 球 ， 所 以 第 1 次 投球 的 学 生 只 能 是 5 号 

或 者 6 号 。 


求 1 号 手 上 的 球 传 到 12 号 并 且 满 足 条 件 5 时 ， 最 少 投球 次 数 是 多 少 ? 假设 
每 个 人 手 上 的 球 都 能 彼此 区 别 开 来 。 


in 世 


HS 


为 了 缩小 搜索 范围 ， 我 们 可 以 考虑 从 两 个 方向 同时 开始 搜索 。 
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思路 

首先 实现 问题 描述 的 向 对 手 投球 的 逻辑 。 如 果 同 一 状态 反复 出 现 ， 
那么 最 终 就 不 可 能 是 最 少 次 数 ， 因 此 利用 广度 优先 搜索 进行 遍历 时 需要 
排除 重复 出 现 的 状态 。 

给 每 个 球 编号 ， 把 每 个 学 生 手 上 的 球 的 编号 用 数组 存储 。 手 上 没有 
球 的 学 生 的 球 用 0 表示。 最终 使 得 1 号 学 生 手 上 没有 球 ， 而 12 号 学 生 
手 上 拿 着 1 号 学 生 的 球 时 就 可 以 结束 搜索 。 用 Ruby 实现 这 个 逻辑 时 ， 
代码 如 代码 清单 64.01 所 示 。 


| 代码 清单 64 . 01 (gq64 01.rb) 


m 


# 6 组 对 村 
PAIR = 6 


# 设置 起 始 和 终止 状态 
Stamee (ALR 2 Eons 


goa = PATR 2 1 toa alu 


# 获取 投 接 球状 态 列 表 
def throwable (balls) 
result .=| 
balls.each{ |ball | 
c = ball.index(0) # 获取 接 球 手 位 置 
B= pa (parR .2) # 计算 接 球 手 正 对 面 的 位 置 
[-1, 0, 1] .each{|dl # 正 对 面 及 其 左右 
D/A PAEnen 
Bballiel ale lal dale 


result .push (ball .clone) # 设置 投球 结果 
lanmNiedl lalla Deane 
end 
} 
} 
result 
end 
# 设置 初始 状态 
pestse = seanel 
JS E sea 
cnt = 0 
# 广度 优先 搜索 
while !balls.include? (goal) do 
next_balls = throwable (balls) # 获取 下 一 步 
balls = next balls - log # 选择 之 前 没有 出 现 过 的 投球 方案 
1og |= next balls # 添加 投球 结果 
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正 对 面 及 其 左右 的 处 理 插 有 意思 的 。 是 “通过 组 数 曲 除法 运算 判断 


是 否 在 同一 侧 ” 吧 ? 


人 是 的 。 此 外 都 是 比较 高 单 的 广度 优先 搜索 逻辑 ， 并 不 是 很 难 。 不 过 ， 
eV 如 果 只 有 5 组 投 接 球 对 手 ， 通 过 上 还 还 辑 几 笠 马上 可 以 求 出 鉴 案 。 而 
ofA 本 题 里 有 6 组 ， 所 以 处 理 时间 会 很 长 。 


下 面 优化 一 下 ， 试 试 双向 搜索 ， 即 从 起 始 状态 和 终止 状态 同时 开始 
搜索 ， 直 到 到 达 同 一 状态 ( 代码 清单 64.02 )。 


| 代码 清单 64 .02 ( q64 02.rb) 


# 6 组 对 手 
PATR = 6 


# 设置 起 始 和 终止 状态 
Sa (PATR E20 EoRa ol 
goa PATR :20 Eormambyl 


# 获取 投 接 球状 态 列表 
def throwable (balls) 


result =° |] 

balls.each{ |ball | 
c = ball.index(0) # 获取 接 球 手 位 置 
ena yy) # 计算 接 球 手 正 对 面 的 位 置 
emo eacnlal # 正 对 面 及 其 左右 


if (p + d) / PAIR == p / PAIR then 
Saal le Sal a elise 


result .push (ball .clone) # 设置 投球 结果 
Ic mle esa se lll = eeulal li ell se llieal 
end 
) 
} 
result 
end 
# 设置 初始 状态 
Ewe=lstantedl 


fw log [Tstarct] 
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bw = [goal] 
bw log = [goall] 
cnt = 0 


# 双向 的 广度 优先 搜索 


while true do 


next_ fw = throwable (fw) # 获取 正 向 的 下 一 步 

fw = next fw - fw log # 选择 之 前 没有 出 现 过 的 投球 方案 
Ewlog |= nexcnEw # 添加 投球 结果 

cn += 1 


屿 


break if (fw & bw) .size > 0 # 如 果 状 态 相同 ， 则 终止 处 理 


next bw = throwable (bw) # 获取 反 向 的 下 一 步 
bw = next bw - bw log # 选择 之 前 没有 出 现 过 的 投球 方案 
bw log |= next bw # 添加 投球 结果 
cnt t= 
break if (fw & bw) .size > 0 # 如 果 状 态 相 同 ， 则 终止 处 理 
end 
puts cnt 


执行 上 述 程序 后 只 需要 几 秒 就 可 以 求 出 答案 。 


还 有 一 种 方法 , 就 是 Q04 的 专栏 里 提 到 的 “迭代 深化 "。 和 迭代 深化 
就 是 通过 逐渐 增加 深度 优先 搜索 的 深度 进行 搜索 的 方法 ,可 以 把 内 存 消 
耗 控 制 在 一 定 的 水 平 上 (关键 点 在 于 考虑 和 目标 状态 的 距离 并 剪 枝 )。 


37 次 
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. ET BRED 
65 图 形 的 一 笔画 


ppIIIIIIIIIIIII II I II II II I I I II I I II I II II I II I II II II III IIIIIIIIIIIIIIIIIIIIIIIIIN, 


现 有 如 国 国 左 侧 所 示 的 4 个 图 块 。 我 们 来 思考 一 下 对 用 这 些 图 块 横 
向 和 纵向 拼合 而 得 到 的 图 形 一 笔画 的 情况 。 

举 个 例子 ， 如 果 横 向 和 纵向 都 有 2 个 图 块 ， 则 可 以 得 到 如 国 团 右 侧 
所 示 的 图 形 (拼合 之 后 ， 图 块 的 边界 重合 )，。、 上 面 的 2 个 图 形 不 能 一 笔 
画 出 来 ， 下 面 的 2 个 可 以 。 


一 笔画 NG 


一 笔画 OK 


DJN 
刁 史 是 许 


下 忆 


加 图 块 形状 和 一 笔画 的 示例 


求 横向 有 4 个 图 块 、 纵 向 有 3 个 图 块 ( 即 3 行 4 列 ) 时 , 能 拼 出 多 少 个 可 以 
一 笔画 的 图 形 ( 上 下 镜像 和 左右 镜像 的 图 形 算 作 不 同 图 形 ) ? 


要 关注 顶点 处 的 边 数 就 可 以 了 吧 。 


然后 判断 是 奇数 还 是 偶数 就 可 以 了。 
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首先 需要 知道 能 一 笔画 的 条 件 。 关 于 这 一 点 ， 网 上 有 不 少 资料 。 下 
面 引 用 维基 百科 ( https://zh.wikipedia.org/wiki/ 一 笔画 问题 ) 上 的 描 
述 来 讲解 。 

e 所 有 的 顶点 的 度数 ( 即 与 顶点 相连 的 边 数 ) 为 偶数 


ee 笔迹 最 终 回 到 起 点 的 情况 ( 闭环 ) 
e 其 中 2 个 顶点 的 度数 为 奇数 ， 剩 余 的 顶点 的 度数 均 为 偶数 
ee 笔迹 最 终 不 回 到 起 点 的 情况 ( 非 闭环 ) 


淡 笔迹 指 的 是 笔 的 轨迹 。 

也 就 是 说 ， 只 需要 找 出 “ 奇 点 个 数 为 0 或 者 2 的 情况 ” 即 可 。 这 
样 ， 一 笔画 问题 就 变 为 检查 顶点 的 度数 为 奇数 或 者 偶数 了 ， 所 以 图 块 内 
部 线条 的 交叉 点 可 以 忽略 不 计 。 


也 就 是 拼合 图 块 ， 然 后 计算 与 顶点 相连 的 边 数 就 可 以 了 吧 ? 


通过 计算 边 数 也 可 以 求 出 答 寅 ， 不 过 这 里 我 们 只 需要 知道 “ 边 数 
(顶点 的 度数 是 偶数 还 是 奇数 "”， 所 以 如 果 每 个 图 块 上 的 顶点 的 度 
数 是 奇数 风 村 为 1， 是 偶数 则 梳 为 0 就 可 以 3。 


0 tls :0 
1.0;0, 0; 1 
L000; 0 1 
0 1; 1,1;0 


然后 ， 拼 合 图 块 ， 按 行 处 理 上 面 的 值 的 变化 情况 。 我 们 可 以 像 代 码 
清单 65.01 这 样 实现 。 


中 即 Degree of a Vertex， 即 与 顶点 相连 的 边 数 。 顶 点 的 度数 为 奇数 的 称 为 奇 点 ， 为 
偶数 的 称 为 偶 点 。 由 偶 点 组 成 的 图 一 定 可 以 一 笔画 ; 只 有 两 个 奇 点 ， 而 其 余 都 为 
偶 点 的 图 也 一 定 可 以 一 笔画 ; 其 他 情况 下 的 图 都 不 能 一 笔画 。 一 一 编者 注 
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代码 清单 65.01 (q65_ 01.rpb ) 


# 设置 图 块 个 数 
W, H = 4, 3 


# 安 位 反 转 的 值 
XOR ROW = (1 << (W + 1)) - 1 
# 按 行 搜索 


deaNsearnen (up ny odosy 
# 截至 上 一 行 ， 如 果 奇 点 的 个 数 大 于 2， 则 排除 这 种 情况 


elven 2 odd 


row = 7 <<W Ia # 设置 初始 值 

# 反 转 最 初 和 最 后 的 行 

wwXORERONOESCNEEEEC 0 

TF ehen # 如 果 是 最 后 一 行 ， 则 检查 后 结束 
odds += (row “up) .to s(2) .count ("1")  # 计算 奇 点 的 个 数 
return 1 if (odds == 0) || (odds == 2) # 如 果 为 0 或 者 2， 

# 则 计 入 结果 

ieralen ea 

ernidl 

cnt = 0 

(1 << W) .times{|al # 图 块 内 容 ( 有 无 左上 至 右 下 的 线条 ) 


出 


(1 << W) .times{ |b| # 图 块 内 容 ( 有 无 左下 至 右上 的 线条 ) 
cme earnen(a 0 < 
ES uo oo eon 
} 


} 
neeureneenE 
end 


But searenm(omo oo) 


我 不 太 明白 设置 图 块 内 容 时 变量 a 和 b 的 作用 。 
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也 就 是 说 ， 国 加 这 种 情况 可 以 用 右 侧 的 比特 列 来 表示 。 


a 和 b 表 示 图 块 


也 就 是 说 ,要 想 根 据 从 上 一 行 引 出 的 斜 线 , 计算 集中 在 顶点 处 的 边 数 
是 偶数 还 是 奇数 ， 只 需要 对 “b 左 移 1 位 后 的 值 ” 和 和 a 执行 异 或 运算 
就 可 以 了 ， 是 吧 ? 


原来 如 此 。 通 过 row 和 Up 就 可 以 知道 从 上 一 行 引出 的 边 数 为 奇数 
曲 顶 点 拘 个 数 了 ( 即 奇 点 的 个 数 》， 对 于 与 下 一 行 相 连 曲 部 分 , 一 旦 对 
全 左 移 1 位 后 的 值 ”和 bb 执行 异 或 运算 ， 就 可 以 知道 当前 状态 下 边 
数 为 奇数 的 顶点 的 个 数 了 吧 ? 


是 的 。 很 多 复杂 的 判断 用 位 运算 表示 时 可 以 写 得 很 高 单 。 


剩 下 拘 就 是 留言 运算 等 的 优先 级 3 哦 。“^” 和 “<<” 中 ,“<<” 巾 
优先 级 更 高 。 


上 述 程序 是 以 行为 单位 处 理 的 ， 也 可 以 像 代码 清单 65.02 这 样 以 图 
块 为 单位 处 理 。 关 键 在 于 要 比较 好 地 剪 枝 。 
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代码 清单 65.02 (qdq65_ 02 .rpb ) 


# 设置 图 块 个 数 

机 

ENWE Oo 

@edge = row + row.map{|r| 1 - r}* (了 - 1) + row 


defsearech(panel, odds) 
# 截至 最 后 一 个 图 块 ， 奇 点 是 否 超过 2 个 
returnea(locdge not (GE > 2) 0 Dane 
# 如 果 中 途 奇 点 超过 2 个 ， 则 不 可 能 完成 一 笔画 


EEC 证 二 和 


ene r= 0 
if panel ss (W + 1) < W then  # 到 达 行 的 最 右 侧 
# 遍历 图 块 内 没有 和 斜 线 的 情况 


cnt += search(panel + 1, odds + @edge [panel]) 


网 


# 图 块 内 有 从 左上 到 右 下 的 线 

@edgelpanmell = csoagslpanellj 

@edgelpanel + WT+2]) = 1 = @edgelpanel + W+2| 
cnt += search(panel + 1, odds + @edge [panel]) 


# 图 块 内 有 交叉 线 

@edge[panel + 1] = 1 - @edge[panel + 1] 
@edge[lpanel +W+1] =1 - @edgelpanel + W+ 1] 
cnt += search(panel + 1, odds + @edge [panel|]) 


# 图 块 内 有 从 右上 到 左下 的 线 

@edgelpanell = TD @edgelpanell] 

@edge[lpanel +W+2] =1 - @edgelpanel + W + 2] 
cnt += search(panel + 1, odds + @edge [panel]) 


# 和 斜 线 回 到 原点 
@edge[panel + 1] = 1 - @eqdge [panel + 1] 
@edge[lpanel +W+1] =1 - @edgelpanel + W+ 1] 


else # 到 达 行 右 端 时 ， 进 入 下 一 行 
cnt += search(panel + 1, odds + @edge [panell]) 
eridl 
em 
end 


puts seareh(0n 0) 
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此 外 ， 像 下 面 这 样 单纯 从 数学 角度 思考 也 能 求 出 答案 。 
存在 斜 线 的 时 候 ， 顶 点 的 度数 的 变化 如 下 所 示 。 


。 偶 点 和 偶 点 一 偶 点 减少 2 个 ， 奇 点 增加 2 个 

。 偶 点 和 奇 点 一 当 偶 点 和 奇 点 交换 位 置 的 时 候 ， 项 点 的 度数 不 变 

。 奇 点 和 奇 点 一 奇 点 减少 2 个 ， 偶 点 增加 2 个 

而 且 ， 和 斜 线 影响 的 只 是 对 角 线 的 奇 点 ， 也 就 是 下 面 D 中 出 现 2 个 增 
减 ,或 者 x 中 出 现 2 个 增 减 。 


OxOxO 
XGOXCOX 
OxOxO 
XGOXCOX 


初始 值 时 ， 〇 处 的 奇 点 是 5 个 ，x 处 的 奇 点 也 是 5 个 ， 为 使 奇 点 变 
为 2 个 ， 需 要 把 〇 中 的 奇 点 变 为 1 个 ，x 中 的 奇 点 也 变 为 1 个 ( 本 题 条 
牛 下 ，4x3 的 图 块 不 可 能 出 现 奇 点 为 0 的 情况 )。 也 就 是 说 ， 需 要 从 10 
个 D 中 选 出 一 个 ， 再 从 10 个 x 中 选 出 1 个 ， 所 以 能 一 笔画 的 奇 点 的 位 
置 组 合 为 10 x 10， 也 就 是 100 种 。 

然后 ,在 奇 点 位 置 确 定 后 枚 举 图 块 的 排列 。 要 想 在 不 改变 奇偶 的 情 
况 下 设置 图 块 ， 就 需要 组 合 闭环 。 本 题 中 ， 闭 环 图 形 共有 26 = 64 种 ， 
所 以 只 计算 64 x 100 就 可 以 得 出 答案 。 


6400 种 
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EE EE 
66 设计 填 字 游 戏 


pIIIIIIIIIIIII II I II II I II I I I II I I II I II II I I I II II III IIIIIIIIIIIIIIIIIIIIIIIIIIIIN, 


填 字 游戏 ( Crossword Puzzle ) 就 是 在 行 与 列 交 叉 处 的 方 格 内 填 字 的 
游戏 。 假 设 这 里 有 填 了 字 的 方 格 (白色 ) 和 没有 填 字 的 方 格 (黑色 )， 
这 些 方 格 的 设置 有 如 下 规则 ( ) 

。 黑色 方 格 不 能 纵向 和 横向 相连 


e 黑色 方 格 不 能 分 裂 整个 表格 
( 参考 : https://zh.wikipedia.org/wiki/ 填 字 游 戏 ) 


OK 示例 NG 示例 1 NG 示例 2 


填 字 游戏 示例 


求 在 方 格 为 5 行 6 列 的 填 字 游 戏 中 ,满足 上 述 条 件 的 设计 有 多 少 种 ( 只 考虑 
黑色 和 白色 的 位 置 ， 不 考虑 其 中 填 入 的 字 ) ? 


填 字 游 戏 中 ， 方 属 越 多 ， 需 要 的 处 理 时 间 越 长 。 不 过 就 本 题 的 数据 
量 而 言 ， 简 单 风 浸 辑 就 可 以 应 对 3。 请 先 用 简单 的 算法 实现 。 


第 1 个 条 件 是 “黑色 方 格 不 能 纵向 和 横 线 相连 ”"， 这 个 比较 简单 。 在 
放置 新 的 黑色 方 属 时 ， 注 意 左 边 或 者 上 边 不 能 有 黑色 方 属 就 可 以 了 。 
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[9 


4 
~ 


难点 在 于 第 2 个 条 件 的 处 理 。 如 遇 
会 让 人 因 不 知道 应 该 着 眼 于 黑色 方 格 还 是 

这 里 我 们 先 按 照 第 1 个 条 件 放置 好 黑 
判断 是 否 符 合 第 2 个 条 件 。 最 后 ， 从 任意 


黑色 方 格 不 能 分 裂 整 个 表格 ”， 


白色 方 格 而 感到 迷茫 。 
色 方 格 ， 然 后 根据 白色 方 格 来 
一 个 白色 方 格 出 发 ， 向 上 下 左 


右前 进 ， 如 果 最 终 所 有 白色 方 格 都 相连 ， 则 符合 条 件 。 


用 Ruby 实现 这 个 方法 时 ， 代 码 如 代码 清单 66.01 所 示 。 这 里 ， 我 


们 在 生成 的 填 字 游戏 的 外 侧 设置 了 边界 ， 使 条 件 确 


认 更 加 简单 了 (白色 


方 格 为 0， 黑 色 方 格 为 1， 边 界 为 -1 )。 


Ln S75 
# 初始 化 表格 
@puzzle = Array.new(W + 2) .map{Array.new(H + 2, 0)} 
(W+2) .times{ |w| 
(H+2) .times{|h| 


IE (w==0) || (w==W+1) || (ih==0) || (h==H + 1) then 
@puzzlelwi inl = 1 
end 
} 
} 
EE £111 (GCG: yy Ein, C5) # 填充 元 素 ， 确 认 是 否 连续 


if @puzzle [x] [y] 


from then 


@puzazleolol = 
(Eom eo) 
EN Em to 
ES 
(om on 
eniqd 
end 
def oheck!() 
ee 
Se qe ve oes ll ll Ss 
0 # 在 白色 方 格 内 填 入 临时 数据 
result = (opuzzle tlatten countl(o ==°0) 
EN 0 # 临时 数据 恢复 为 白色 方 格 
result 
end 


def search (x, y) 


及 下 三 条 十 竺 
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return 1 if y == H+1 # 能 搜索 到 最 后 则 代表 成 功 


ent searen(x 07 yy) # 设置 白色 方 格 ， 进 入 下 一 层 搜索 
# 如 果 左 边 或 者 上 边 不 是 黑色 方 格 ， 则 设置 黑色 方 格 并 进入 下 一 层 搜索 
Tf (CPUzzleIIRE TILE Te (opuzzlelx)lly 7 1= 1 tnen 
@puzzlenl 三 汪 下 # 设置 黑色 方 格 
cnt r=— Searel(z VETEERENESS 似 
@puzzle[x] [y] = 0 # 恢复 黑色 方 格 
end 
ene 
end 
ET 和 EE 始 


Y check 子 数 中 曲 flatten 是 什么 5 呵 ? 


这 是 翅 数组 扁平 化 的 处 理 ， 用 于 翅 二 维 数组 辕 损 成 一 维 数组 。 


转换 成 一 维 数 组 之 后 ， 就 可 以 很 简单 地 确认 数组 元 系 里 有 没有 0 3 。 


用 Ruby 实现 时 ， 人 处 理 时 间 大 概 是 6 而 如 果 用 C 或 者 C++ 等 ， 
上 述 逻辑 大 概 不 到 1 秒 就 可 以 处 理 完毕 。 ， 如 果 方 格 数 增多 ， 处理 
时 间 会 大 幅 增加 。 


另 一 种 方法 是 逐 行 处 理 。 增 加 行 数 时 ， 如 果 表 格 已 经 被 分 裂 ， 则 
可 以 提前 终止 搜索 ， 从 而 提高 处 理 速度 。 至 于 如 何 判断 是 否 分 裂 ， 我 
们 可 以 用 Q63 里 的 方法 。 
举 个 例子 ， 如 国 BE 加 所 示 
的 情况 出 现时 ,就 可 以 终 
止 搜索 。 


可 以 终止 搜索 的 示例 
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的 确 ， 用 和 逐 行 处 理 的 方法 时 ， 还 可 以 用 比特 囊 来 表示 黑色 方 赂 ， 优 


化 空间 很 大 呢 。 


如 果 用 比特 列表 示 ， 
试 着 实现 一 下 哦 。 


纵向 和 横向 是 否 相 连 曲 判断 也 很 简单 呢 ， 请 一 写 


3 149283 个 


十 年 后 会 消失 的 职业 


填 字 游戏 从 很 久 以 前 就 颇 受 计算 机 研究 人 员 的 钟爱 。 本 题 是 关于 
黑色 方 格 设置 的 问题 ， 而 更 多 研究 人 员 探 究 的 是 “自动 生成 包含 文字 
的 填 字 游戏 ”或 者 “如 何 解 填 字 游戏 ”等 。 

光 是 确定 黑色 方 格 的 设置 ， 填 入 文字 使 之 成 为 有 具体 含义 的 短语 
就 已 经 是 相当 困难 的 任务 了 。 而 且 英 语 字母 只 有 26 个 , 但 要 制作 日 语 
填 字 游戏 可 就 复杂 多 了 。 填 字 游 戏 的 规模 越 大 ,不仅 是 设计 更 难 了 ，, 确 
认 题 目 能 否 解 得 出 来 的 难度 也 会 大 大 增加 。 

如 果 你 去 书店 的 益 智 游戏 区 域 就 会 发 现 ， 不 仅 有 填 字 游戏 相关 的 
书 , 还 有 与 其 他 谜 题 相关 的 书 。 不 少 期 刊 杂 志 也 刊登 了 大 量 的 谜 题 , 因 
此 谜 题 需求 量 巨大 ， 以 至 于 催生 出 了 专门 的 谜 题 作家 这 一 职业 。 不 过 
想到 要 由 人 来 设计 这 样 的 游戏 ， 总 觉得 太 过 艰难 。 

要 是 可 以 用 计算 机 自动 生成 这 样 的 迹 题 就 好 了 …… 不 过 特 信 一 
想 ， 这 样 一 来 是 不 是 就 抢 了 谜 题 作家 的 饭碗 了 呢 ? 随 着 人 工 智能 的 发 
展 ， 会 被 计算 机 取代 的 职业 越 来 越 多 了 。 不 仅仅 是 人 工 智 能 ， 随 着 搭 
载 了 计算 机 的 设备 的 普及 ， 不 需要 人 工 的 地 方 越 来 越 多 了 。 不 久 前 就 
有 一 篇 题 为 “十 年 后 会 消失 的 职业 ”的 报告 被 发 表 ， 并 引起 了 人 们 的 
广泛 关注 。 

报告 中 提 及 的 职业 有 些 的 确 会 消失 ， 也 有 些 不 太 符 合 现实 。 和 项 记 
大 家 想 一 想 ， 自 己 在 做 的 职业 十 年 后 还 有 必要 存在 吗 ? 
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67 : 不 挨 着 坐 是 一 种 礼节 吗 


ppIIIIIII IIIII III II II I II I I I II I I I II I IIII II I III II IIII IIIIIIIIIIIIIIIIIIIIIIIIIN, 


在 公交 和 地 铁 上 ， 有 时 会 有 一 些 空 着 的 座位 。 似 乎 出 于 礼节 ， 大 多 
数 人 都 会 自然 而 然 地 选择 坐 到 旁边 都 是 空 座 位 的 座位 上 。 这 里 ,我 们 假 
定 有 一 排 空 座位 ， 大 家 会 尽量 选择 邻 座 没 有 人 的 空 座位 先 坐 。 如 果 没 有 
这 样 的 空 座位 ， 才 会 选择 坐 到 剩 下 的 空 座位 上 。 


如 匡 E 所 示 ， 有 12 个 人 先后 坐 在 编号 为 A~L 的 12 个 座位 上 时 ，12 个 人 落座 的 
顺序 有 多 少 种 ( 每 个 座位 各 不 相同 ，1 个 座位 上 只 能 坐 1 个 人 )? 


座位 示例 


相对 网 两 排 座位 要 怎么 表示 呢 ? 


开工 
全 使 用 边界 标记 就 好 啦 。 像 医 E 一 尾 加 上 墙壁 就 可 以 直观 地 表示 
RA 了 吧 ? 
(站 
寺 墙 墙 
壁 A B GC D E F 壁 G H | 让 K 上 壁 
使 用 墙壁 时 的 示意 图 
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搜索 方法 有 不 少 。 如 果 全 量 搜索 ， 处 理 时 间 会 比较 长 。 这 里 先 搜索 
邻 座 没 有 人 的 空 座位 ， 等 没有 符合 条 件 的 空 座位 后 ， 再 按 顺 序 选 择 剩 余 
的 空 座位 ， 然 后 计算 剩余 人 数 的 阶乘 就 可 以 了 。 

这 里 ， 我 们 用 一 维 数组 表示 座位 ， 并 设置 用 于 检测 边界 的 墙壁 。 用 
Ruby 实现 逻辑 时 ， 代 码 如 代码 清单 67.01 所 示 。 


代码 清单 67.01 (q67_01.rb ) 


N=6 
FREE, USED, WALL = 0, 1, 9 


# 在 两 边 和 正中 间 设 置 墙壁 作为 边界 
@seat = [WALL] + [FREE] * N + [WALL] + [FREE] * N + [WALLI] 
def search (person) 
councq 0 
# 搜索 邻 座 没有 人 的 空 座 位 
@seat .size.times{ |i| 
if @seat li] == FREE then 
IE (@seatli IE USED) && (Qseat li 1] = USED) them 
# 如 果 有 空 着 的 座位 ， 则 坐 下 ， 并 接着 搜索 下 一 层 
@seat [i] = USED 
Count += search (person + 1) 
@seat [il = FREE 
end 
end 
b 
# 存在 邻 座 没有 人 的 空 座位 时 采用 上 述 逻 辑 ， 
(eounte > 0 oount 
end 


其 他 情况 下 则 通过 阶乘 计算 
(1..@seat .count (FREE)) .inject(:*) 


puts search(0) 


这 是 深度 优先 搜索 曲 经 典 实现 史 ， 理 解 起 来 很 容易 呢 。 


如 果 说 哪里 作 3 了 优化 ， 大 要是 计算 阶乘 时 用 3 injectop? 
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是 吗 。 考 虑 到 不 理 速 度 ， 可 以 优化 阶乘 的 计算 ， 这 个 数据 量 下 用 
inject 就 足 哆 了 。 像 这 次 N = 6 曲 情况 下 ， 几 乎 一 瞬间 就 可 以 得 出 


kk 富 
合 匠 0 


不 过 ， 如 果 X 变 大 ， 处 理 时 间 会 增加 。 比 如 = 8 时 处 理 时 间 就 会 
很 长 。 这 时 我 们 还 可 以 考虑 用 内 存 化 的 办 法 来 进一步 优化 。 一 旦 遍历 过 
座位 的 状态 就 把 结果 保存 下 来 。 如 果 采 用 这 样 的 优化 ， 即 使 N = 10 也 
可 以 在 1 秒 左 右 完成 处 理 。 


代码 清单 67.02 (gq67_02.rb) 


N=6 
FREE, USED, WALL = 0, 1, 9 


@memo = {} 


def search (seat) 
return @memo [seat] if @memo.has key? (seat) 
count =°0 
# 搜索 邻 座 没有 人 的 空 座位 


seat.size.times{|i| 


if seatl[il] == FREE then 
if (seat[i - 1] != USED) && (seat[i + 1] != USED) then 
# 如 果 有 空 着 的 座位 ， 则 坐 下 ， 并 接着 搜索 下 
seat [R= USED 


count += search (seat) 
seat [i] = FREE 


end 
end 
} 
# 存在 邻 座 没 有 人 的 空 座位 时 采用 上 述 逻 辑 ， 其 他 情况 下 则 通过 阶乘 计算 
cmemolseaml = eon 0 ou eat 
SOUnEl(EREE et) 
end 


puts search([WALL] + [FREE] * N + [WALL] + [FREE] * N + 
[WALL] ) 


内 存 化 果然 很 重要 吗 。 
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座位 的 状态 也 由 实例 变量 变 为 了 和 参数， 可 谅 性 进一步 提升 3 呢 。 


就 本 题 而 言 ,单纯 用 数学 中 的 阶 来 也 可 以 解答 。 在 “没有 这 样 的 空 
座位 ”( 即 没有 邻 座 没 有 人 的 空 座位 ) 的 情况 下 ,如 果 分 别 用 上 〇 和 x 表 
示 座 位 A~F 的 状态 ( 坐 了 人 的 座位 用 〇 表示 , 没有 人 坐 的 座位 用 x 表 
示 )， 则 已 有 2 人 上 坐 下 的 状态 如 下 所 示 ， 只 有 1 种 落座 顺序 。 


Xi®@ XxX®X 
有 3 人 坐 下 的 状态 如 下 所 示 ， 共 4 种 落座 顺序 。 


CPO%OR 
®>%®xxX® 
OXxxOxO 
Xx®XOX® 


然后 只 需要 确认 在 空 座位 上 落座 时 的 数列 的 个 数 就 可 以 了 。 也 就 是 
说 , A~F 和 G-< 分 别 坐 了 2 人 时 ,最 初 4 个 人 的 落座 顺序 有 4 种 ,剩余 
8 人 的 落座 顺序 为 8! 种 ， 共 x8! 种 ; A~F 坐 了 2 人 ，G~L 坐 了 3 人 时 ， 
最 初 5 个 人 的 落座 顺序 为 4x51 种 ， 剩 余 7 人 的 落座 顺序 为 71 种 ， 也 就 
是 共 4x5IXx7! 种 ; A~F 坐 了 3 人 ，G~L 坐 了 2 人 时 与 前 一 种 情况 一 样 ， 
是 4X51X7! 种 ; A~F, G~L 分 别 坐 了 3 人 时 ,最初 6 个 人 的 落座 顺序 为 
4Xx4x6l 种 ,剩余 6 个 人 的 落座 顺序 为 6! 种， 因此 是 4Xx4xX6lx6! 种 。 

统计 这 4 种 情况 下 的 总 数 就 可 以 得 到 正确 答案 “14100480”。 如 果 
把 这 个 方法 通用 化 并 写成 程序 ， 可 以 非常 快 地 处 理 完 。 


14100480 种 
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SE, ea Pi 
异性 相 邻 的 座次 安排 
pI I I I I I I I I I I I I I I II I I II I III I II II I IIIIIIIIIIIIS, 
回想 起 学 生 时 期 调 座 位 的 时 候 ， 我 们 的 心里 总 是 会 小 鹿 乱 撞 。 想 必 
很 多 人 都 对 谁 会 坐 自己 旁边 这 件 事 莫名 地 激动 吧 ? 

这 里 我 们 考虑 一 种 “前 后 左右 的 座位 上 一 定 都 是 异性 ”的 座次 安 


ED EEC 
Qes 


排 。 也 就 是 说 ， 像 匡 E 杂 I 右 侧 那 样 ， 前 后 左右 都 是 同性 的 座次 安排 是 不 符 
合 要 求 的 (男生 用 蓝 色 表示 ， 女 生 用 灰色 表示 )。 
® NG 示例 
ED ES ED ED ED 全 用 用 
© © ©® ©® ©® ge @i@ 1 @ 
ED ED ED GD ES 全 :a GD 人 |; 
© © 66 9 9 9 :0 .© 9; 
[ | | :a :Es 
© ©® ©® ©® ©® ge ©:0:8@ 
( Ga | HH 
@ ®@ ® ® @ ® ©® @©@!1® | 
Lab I 
BD 6 GO 6 6 四 E'S E9， 
© © ©® ©® @ 9 ©le@ @1 


假设 有 一 个 男生 和 女生 分 别 有 15 人 的 班级 ， 要 像 医 E9 那 样 ， 排 出 一 个 6x5 
的 座次 。 求 满足 上 述 条 件 的 座次 安排 共 多 少 种 ( 前 后 或 者 左右 镜像 的 座次 也 看 作 不 
同 的 安排 。 另 外 ,这 里 不 在 意 具 体 某 个 学 生 坐 哪 里 ,只 看 男生 和 女生 的 座次 安排 )? 


His 


前 枝 可 以 有 效 缩小 搜索 范围 喊 。 


SA 
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如 果 完 全 按照 问题 描述 实现 ， 只 需要 遍历 30 个 座位 中 15 个 男生 的 
座次 ， 满 足 条 件 就 OK 了 。 如 果 不 考虑 可 扩展 性 、 处 理 速度 等 ， 只 需要 
把 不 符合 条 件 的 情况 排除 就 可 以 了 ， 并 不 是 很 难 。 

这 里 ， 我 们 事先 准备 好 要 排除 的 座次 安排 ， 统 计 不 在 这 个 范围 内 的 
座次 安排 即 可 。 用 Ruby 实现 时 ， 如 代码 清单 68.01 所 示 。 


| 代码 清单 68 . 01 (q68_ 01.rb) 


| 
# 从 1 ~ 30 为 座位 编号 

Sealtse = (1 30) oa 

# 不 符合 条 件 的 座次 安排 要 排除 

nO = 6 L926 2 0 

1 OA] 

A GA 

ee ie) Zo 2 | Tl a ee 2 Te ey oe 

es ep cop loll eo op a oly 2s oS oar Ey 

22007 0 280020220200200 32001 

2 SO TA Om SI A LO Ll 

ST OP 1 1 0 A 2 人 
0 TS, MS Ty S22) I ds Mg el Se 

A 2021 220 2 

I De la a oe od oe 


ent = 
seats.combination(15) {|boy| # 男生 的 座次 安排 组 合 
lial = Se = oe # 女生 的 座次 安排 组 合 
if ng.all?{|n| boy & n != n} && ng.all?{|n| girl & n != n} then 
cnt += 1 
end 
} 
io mle 


就 是 简单 地 小 择 15 个 人 人， 排除 不 等 合 条 件 曲 情况 而 已 洒 。 这 个 处 理 
容易 理解 ， 好 像 也 没有 什么 问题 。 
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要 想 改善 处 理 速度 ， 就 要 考虑 “如 何 缩小 搜索 范围 ”。 基 本 的 办 法 
不 外 乎 “ 剪 校 ”和 “内 存 化 ”。 
这 里 ， 我 们 事先 准备 前 2 排 的 座次 安排 ,然后 生成 下 一 排 可 能 的 安 


排 ， 并 递归 地 搜索 下 去 。 同 时 ， 把 已 经 搜索 过 的 结果 保存 到 内 存 中 ， 避 


免 重复 搜索 ( 代码 清单 68.02 )。 
代码 清单 68 .02 (q68_02.rb) 
Wi = 
abl = (lee Wh = 
# 保存 各 排 男生 人 数 
@beya (Uo Ln neo ns (coun 
# 第 3 排 座次 能 否 安排 ( 能 否 接 着 前 2 排 继续 安排 ) 
def onecl(r Er2 0 2) 
result = true 
W.times{ |i| # 确定 1 排 的 各 个 位 置 
00970 2 Am 人 份 碍 左 有 是 舍 关 列 
m2 # 检查 上 下 是 否 并 列 
J el fe ii ES ) && (r2 & ml == ml) && (r3 & m2 == m2) then 
result = false # 如 果 都 是 男生 并 列 , 则 不 符合 要 求 
end 
if° ((r1 AT & m2 == m2) ROGER gm == m1) SS 
(I(z3 ALL) & m2 == m2) then 
result = false # 如 果 都 是 女生 并 列 , 也 不 符合 要 求 
end 
} 
result 
end 
# 生成 接着 前 2 排 继 续 排 的 那些 排 的 哈 希 表 


@next 


{} 


(1 << W) .times{|r1| # 第 1 排 
(1 << W) .times{|r2| # 第 2 排 
@nexe lr 221 LOSSATD .selecellel 
到 各 
} 
} 
@memo = {} 


def search(prel, pre2, line, used) 


Tf omemo nas key a (lose pre2 ne usea 


return @memo[ [prel，pre2，1line,，used]] # 如 果 曾 经 搜索 过 


end 


Q68 


异性 相 邻 的 座次 安排 


heel (2 


then 
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if line >= H then # 已 搜索 到 最 后 一 排 


@memo[ [prel, pre2, line, used]] = (used == W*H/2)?1:0 
return @memo [ [prel, pre2, line, used]] 

end 

Besulbe = 0 

下 Lis ss BR = 1 Elen # 倒数 第 2 排 


@next [[pre2, prel]] .each{ |row| 
if (@next[[row, row]] .include? (prel)) && 
(used + @boys[row] <=W * H/ 2) then 
result += Search(row, prel, line + 1, UsSed + @ 


boys [row] ) 
end 
} 
else # 不 是 最 后 一 排 
@next [[pre2, prel]] .each{ |row| 
if used + @boys[row] <=W*H/ 2 then 
result += Search(row, prel, line + 1, UsSed + '@ 
boys [row]) 
end 
} 
engdl 
@memo[ [prel, pre2, line, used]] = result 
emgl 
count = 0 
(1 << W) .times{|ro0| # 设置 最 前 面 那 一 排 


Coune seanmen (an on opoysls ol 


} 


puts count 


j 这 个 程序 可 以 在 2 秒 左右 求 出 正确 答案 。 


从 一 个 半 小 时 缩短 到 2 牧 啊 | 这 样 的 优化 好 有 价值 ! 


不 仅 是 处 理 速 度 ， 这 个 程序 在 可 扩展 性 上 也 策 优 异 。 不 同 曲 情况 下 ， 
只 需要 更 改 一 开始 的 常量 就 可 以 了 。 


14， 13374192 种 
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重 版 权 


9 蓝 白 歌会 
ppIIIIIIIIIIIIIIIIIIIII II I I I II I I I II I II III I I II I I I II I II IIIIIIIIIIIIIIIIIIIIIIIIIN, 


至 此 ， 本 书 终于 迎 来 了 最 后 一 个 问题 。 请 大 家 回想 一 下 每 年 年 终 的 
“ 红 白 歌会 ""。 为 分 出 红 组 和 白 组 的 胜 负 , 野 鸟 会 ”的 工作 人 员 会 负责 统 
计 观 众 举 起 的 红色 和 白色 卡片 的 张 数 ， 这 一 莫大 多 数 日 本 人 都 很 熟悉 
( 由 于 本 书 印刷 颜色 的 关系 ， 这 里 改 为 蓝 白 歌会 )。 
如 果 蓝 色 和 白色 的 卡片 分 布 过 于 分 散 ， 就 不 便于 统计 。 因 此 为 使 结 
果 一 日 了 然 , 需要 对 人 群 进行 移动 调整 ( 如 果 蓝 色 和 白色 人 数 相 等 ， 则 
最 终 两 个 人 群 之 间 会 形成 纵向 或 横向 的 分 界线 )。 不 过 每 次 只 能 移动 两 
人 ,并 且 只 能 是 纵向 或 横向 相 邻 的 两 人 交换 位 置 。 
反复 交换 位 置 ， 使 人 群 最 终 变 为 如 上 E8 中 “终止 状态 ”的 4 种 状 
态 之 一 。 求 以 最 少 步骤 由 起 始 状态 变 为 4 种 终止 状态 之 一 时 ， 移 动 次 数 
最 多 的 起 始 状态 。 
举 个 例子 ， 假 设 有 


Q EE oa 
6 


‘lel le 
4x4， 即 16 个 人 ， 以 8 人 eae 
为 一 组 分 为 两 组 。 他 们 的 9 
起 始 状态 如 加 所 示 时 ， 移 本 
动 次 数 为 8， 起 始 状态 如 @ 上 状态 一 世 攻 症 上 
所 示 时 ， 移 动 次 数 为 10。 十 同上 守 二 站 四 四 站 
这 种 情况 下 ， 移 动 次 数 最 国 国 口 口 。 口 口 国 面 gg 
多 为 10， 并 且 像 国 这 样 的 ER 
起 始 状态 有 .64 种 ( 蓝 色 和 Sloe Se 
白色 对 换 ， 以 及 左右 对 换 可 回回 回回 回回 加 


AAA 外 二 后 | 的) 态 
等 情况 也 算 不 同 的 状态 ) 国共 色 和 白色 的 移动 示例 


中 起 源 于 1951 年 的 大 型 音乐 节目 ， 由 日 本 广播 协会 (NHK ) 举办 ， 每 年 12 月 31 
日 晚上 直播 。 参 赛 者 按照 性 别 分 为 两 组 ， 女 歌手 为 红 组 ， 男 歌手 为 白 组 ， 交 替 演 
出 。 投 票 规则 每 年 略 有 不 同 ， 有 些 年 份 会 让 现场 观众 也 参与 投票 ， 比 如 让 观众 举 

注 

@ 日 本 野 鸟 会 ， 以 保护 和 调查 野生 鸟 类 ， 保 护 自然 生态 为 目的 的 公益 组 织 ， 曾 多 次 
在 日 本 红 白 歌会 上 负责 统计 举 红色 和 和 白色 卡片 的 人 数 。 一 一 译 者 注 
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当 有 6x4， 即 24 个 人 ， 以 12 人 为 一 组 分 为 两 组 时 ， 求 移动 次 数 最 多 时 的 
起 始 状 态 有 多 少 种 ? 


in 包 
Ht a 
dip 


电路 

如 果 穷 举 所 有 初始 状态 ， 并 计算 每 一 种 状态 下 划分 人 群 所 需 的 移动 次 
数 ， 那 么 计算 量 会 非常 大 。 这 里 我 们 反 向 倒 推 问题 ， 采 用 从 终止 状态 开始 
进行 广度 优先 搜索 的 方法 。 也 就 是 “移动 可 交换 的 两 人 ， 求 恢复 初始 状 
态 需要 的 最 少 移动 次 数 "。 不 过 可 想 而 知 ， 这 种 方法 的 计算 量 也 很 大 。 


终止 状态 是 固定 的 ， 因 此 我 们 可 以 用 反 向 搜索 的 办 法 简单 求解 。 请 
用 位 运算 优化 一 下 


(sg 


(CR 


在 来 还 是 要 全 
先 搜索 。 


量 搜索 啊 。 我 和 道 ， 求 移动 况 数 景 少 时 需要 用 广度 优 


六 
多 怎样 表示 人 提交 损 也 是 一 个 问题 。 为 节省 内 存 开销 , 景 好 还 是 用 比 时 
by 列 来 圳 示 t 吧 。 


首先 ， 用 1 表示 蓝 色 ， 用 0 表示 白色 ， 从 4 种 终止 状态 开始 ， 两 两 
交换 位 置 ， 求 交换 次 数 最 多 的 情况 。 只 有 “横向 相 邻 ”或 者 “纵向 相 
邻 ”的 两 人 才能 相互 交换 ， 因 此 我 们 可 以 用 位 运算 来 表示 。 

如 果 使 用 位 掩 码 ， 则 可 以 通过 异 或 运算 求 得 交换 后 的 组 合 。 也 就 是 
说 ， 只 要 为 需要 交换 的 两 个 位 置 设置 数字 1， 并 和 位 置 对 应 的 数字 作 蜡 
或 运算 ， 就 可 以 表示 交换 行为 。 下 面 先 结合 内 存 化 的 方法 用 Ruby 实现 
这 种 广度 优先 搜索 方法 试 试 ( 代码 清单 69.01 )。 


代码 清单 69.01 (gq69_01.rb ) 


# 把 终止 状态 设置 为 初始 值 

NE .00/00EEE 0 0 S00 occec 0 
Ox333333 => 0} 

queue = memo.keys 

W, H = 4, 6 
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# 指定 可 交换 的 位 置 

mask = [] 

(W * H) .times{|i| 
masi ove | 攻 遇 天 用 放下 和 加 人 目 
mask.push((1 <<W | 1) << i) if i <W* (H - 1) # 纵向 相 邻 


} 


i 
4 
口 


depth =0 
while queue.size > 0 do # 遍历 所 有 情况 
Dulaesbtn queue.sizel 
depth += 1 
next queue = 机 加 
queue.map{|q| 
mask.each{ |m| 
# 遍历 未 搜索 的 部 分 ， 两 个 位 置 “ 都 是 0” 或 者 “都 是 1” 的 情况 除外 
if ((q&m) != 0) && ((qg & m) != m) && !memo.key? (gq ~ 
menens 
memo [q “ m] = depth 
next queue.push(q ~ m) 
engl 
} 
} 
Gueue = next queue 
emg 


从 程序 曲 输 出 可 以 很 清 严 地 看 到 当前 正在 遍历 不 同 移动 况 数 曲 


情 :部 高 


这 个 方法 的 难点 在 于 会 花费 大 量 的 处 理 时 间 。 上 述 代码 清单 用 我 手 
上 的 计算 机 大 约 需要 30 秒 才能 执行 完毕 。 下 面 ， 我 们 用 C 语言 重 写 。 
代码 清单 69.02 这 个 版 本 除了 用 数组 代替 了 哈 希 表 以 外 ， 其 他 处 理 内 容 
几乎 一 致 《 注 释 省 略 )。 


代码 清单 69.02 ( q69 02.c) 


#include <stdio.h> 


#define W 4 
#define H 6 


char memo[1 << (W * H)] = {0}; 
nt oueuel < Ws {0x000ffE， OOX 上 二 于 OOO OXCCecee., 
0x333333 } ; 
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mee mos Wn 
人 


int main(int arge, char x*argv){ 


qepEnn = 
for (LT = 0 de Me 了 
memo [queue [1i]] = depth; 


mask Count = 0 


ES 
VEC masklmask deoune 
if (i <W* (H - 1)) mask[Imask count++] = (1 <<W| 1) << i; 
} 
start es 0 


end = temp = 4; 
while (end - start > 0){ 
Seinte lcd na Stoney 


depth++; 
Eo ear Nena rl 
for = masioounte ee) 
if (((gqueue[i] & mask[j]) != 0) && 
((gqgueuel[i] & mask[j]) != mask[j]) && 
(memo [queue [i] 人 mask[j]] == 0)){ 
memo[queue[i] “~ mask[j]] = depth; 
queue [temp++] = queue[il ~ mask[j]; 


】 
} 
} 
astart '= end; 
end = temp; 


} 
return 0; 
} 
( 
Qe 虽然 处 理 过 程 一 样 ， 但 用 CC 语言 双 写 后 ， 处 理 时 间 缩 短 到 3 1.5 徐 。 
| 由 此 可 见 ， 像 这 幢 曲 问题 ， 用 编译 型 语言 可 以 实现 快速 处 理 。 


下 面 再 进一步 优化 一 下 吧 。 由 于 蓝 色 和 和 白色 反 转 并 不 会 影响 最 终结 
果 (只 需要 进行 一 半 搜索 ， 最 后 再 把 结果 来 以 2 即 可 )， 因 此 可 以 同时 
进行 搜索 。 这 里 修改 了 上 述 Ruby 代码 ,具体 如 代码 清单 69.03 所 示 ( 只 
有 更 改 部 分 加 上 了 注释 )。 
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代码 清单 69.03 (gq69 03.rb) 


eno OONRRREE OO E00 oo <eecce 过 0 
0x333333 => 0} 

dueue = [0x000fff，0x333333] # 只 保留 左上 为 0 的 初始 值 

W, H= 4，6 


mask = [] 

(W * H) .times{|i| 
masl ousn 00 
mask.push((1 << Ww | 1) << i) if i <Ww* (H- 1) 


} 


depth=0 
Waieeeoueuess ze > 0 de 
p [depth, queue.size * 2] # 答案 乘 以 2 
depth += 1 
nextYqueue 三 尖 加 
queue .map{ |q| 
mask.each{ |m| 


if ((q&m) != 0) && ((qg & m) != m) && !Imemo.key? (gq ~ 
me 
memo[lg ~ m] = depth 
# 缓存 按 位 取 反 的 结果 
memo[(d ~ m) ~ ((1 <<W* H) - 1)] = depth 
next queue.push(q ~m) 
end 
} 
} 
Gueue = next queue 
end 


用 这 种 方法 可 以 减少 一 半 处 理 时 间 。 如 果 用 C 语言 实现 同样 的 逻 
辑 ， 处 理 时 间 能 控制 在 1 秒 以 内 。 


= 对 4 种 


需要 移动 20 次 ) 
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© Column 让 


桌面 调试 ”现在 还 行 得 通 吗 


写 这 本 书 的 时 候 ,我 最 在 意 的 是 代码 跟踪 的 方法 。 从 很 早 开始 ,在 
要 确认 程序 运行 的 地 方 加 一 句 printf 之 类 的 代码 来 查看 其 输出 的 办 法 
就 广 为 使 有 用。 并且， 因为 反复 编译 执行 会 很 浪费 时 间 ， 所 以 以 前 常常 
会 在 编译 前 做 案 面 跟踪 调试 。 不 过 ， 最 近 的 开发 环境 已 经 可 以 按 步 执 
行 ， 因 此 查看 变量 的 值 也 变 得 很 简单 。 

当然 ， 给 “本 周 算法 ”栏目 出 题 时 我 想 ， 应 该 有 很 多 读者 会 复制 
并 粘贴 答案 中 的 源 代码 来 自己 确认 执行 过 程 。 但 是 ， 一 旦 源 代码 出 现 
在 书 中 ,很 多 人 就 需要 做 桌面 跟踪 调试 了 。 可 是 肯定 会 有 人 坐 在 车 里 ， 
人 
解 也 许 是 更 好 的 办 法 。 

不 过 ， 我 个 人 一 直到 现在 还 常常 做 桌面 调试 。 我 经 常 能 在 读 打 印 
出 来 的 源 代码 时 发 现 程序 漏洞 。 其 实 即便 是 现在 ， 我 也 常常 在 参加 纺 
程 考试 时 间 读 印刷 在 试卷 上 的 源 代码 ， 并 且 很 喜欢 纸 质 书 。 

那么 大 家 呢 ? 现在 还 做 桌面 调试 吗 ? 


@ Desk Debug， 即 把 程序 代码 打印 出 来 ， 通 过 读 代 码 来 调试 程序 。 


译 者 注 
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% 


微 信 连 接 


回复 “算法 ”查看 相关 书 单 


微 博 连接 - 
关注 @ 图 灵 教 育 每 日 分 享 |T 好 书 


人 M 


QQ 连接 


本 书 是 一 本 解 谜 式 的 趣味 算法 书 ， 从 实际 应 用 出 发 ， 通 过 趣味 谜 题 的 解 谜 过 
程 ， 引 导读 者 在 愉悦 中 提升 思维 能 力 、 掌 握 算法 精髓 。 此 外 ， 本 书 作 者 在 迹 题解 
答 上 ， 通 过 算法 的 关键 原理 讲解 ， 从 思维 细节 入 手 ， 发 掘 启发 性 算法 新 解 ， 并 畏 
以 Ruby、Javascript 等 不 同 语言 编写 的 源 代码 示例 ， 使 读者 在 算法 思维 与 编程 实践 
的 分 合 之 间 ， 切 实 提高 编程 能 力 。 

本 书 适 合 已 经 学 习 过 排序 、 搜 索 等 知名 算法 ， 并 想 要 学 习 更 多 有 趣 算法 以 提 
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